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ABSTEACT 


A three-dimensional, time-variant mathematical model for momentum 
and mass transport In estuaries was developed and its solution imple- 
mented on a digital computer. The mathematical model is based on state 
and conservation equations applied to turbulent flow of a two-component, 
incompressible fluid having a free surface. Thus, bouyancy effects 
caused by density differences between the fresh and salt water, inertia 
from the river and tidal currents, and differences in hydrostatic head 
are taken into account. The conservation equations, which are partial 
differential equations, are solved- numerically by an explicit, one-step 
finite difference scheme and the solutions displayed ntimerically and 
graphically. To test the validity of the model, a specific estuary 
for which scaled model and experimental field data are available. 

Mobile Bay, was simulated. Comparisons of velocity, salinity and water 
level data show that the model is valid and a viable means of simulating 
the hydrodynamics and mass transport in non-ldealized estuaries. 


viii 



CHAPTER 1 


INTRCDUCTION 

la addition to being unique natural environments, estuaries are 
sources of commercially valuable seafoods, essential links in water 
transportation routes, and important recreational areas* Further- 
more, they serve as areas to dilute and degrade urban and industrial 
wastes* Since the use of these essential properties is expected to 
increase, the effectiveness with which estuaries are utilized must 
improve or these natural resources will be completely consumed* Im- 
provement in the utilization of estuaries can be achieved only through 
a better understanding of estuarine phenomena, both qualitatively 
and quantitatively. This understanding can only be achieved by a 
combination of computer simulations, scaled model studies, and field 
observations of real estuaries. To make these ideas concrete, it is 
expedient to select a specific estuary to study. The estuary selected 
here is Mobile Bay. 

A. ESTUARIES 

^’An estuary is a semi -enclosed coastal body of water which has 
a free connection with the open sea and within which sea water is 
measurably diluted with fresh water derived from land drainage" is 
a widely accepted definition proposed by Cameron and Pritchard (1963) * 
Therefore a bay, sound, inlet or small gulf into which several rivers 
flow, as well as the lower reaches of a single river into which salt 
water intrudes, may be classified as an estuary (Officer, 1976). In 
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any of these situations, the density difference between the fresh and 
salt water provides a driving force for circulation and mixing pro- 
cesses# In most estuaries, the density differences are a consequence 
of variations in salinity as opposed to variations in temperature ♦ 
Other driving forces for circulation and mixing processes are tides 
and winds# Irrespective of the driving force or combination of 
forces for these turbulent momentum and mass transports, the result- 
ing velocity and salinity distributions are complex, frequently 
varying in three space dimensions and time# Because river flows, 
tidal variations and wind conditions are seldom all constant for more 
than a few hours at a time, estuaries are generally in transition from 
one dynamic state to another# Furthermore, even the topography of an 
estuary may be changing rapidly if sedimentation processes are 
important • 

The purpose of the research reported herein was to develop a 
generally applicable three-dimensional, time-variant mathematical 
model for momentum and mass transport in estuaries and to implement 
the solution of the model on a digital computer, that is, generate a 
computer model# The mathematical model is based on state and conser- 
vation equations applied to turbulent flow of a two component, incom- 
pressible fluid having a free surface# The conservation equations, 
which are partial differential equations, were solved numerically by 
an explicit finite difference method and the resulting solutions were 
displayed both numerically and graphically# To test the validity of 
the model, an estuary for which scaled model and field studies have 
been made, Mobile Bay, was simulated# Beyond testing the validity of 
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the model. Mobile Bay was selected for study because it is both tech- 
nically and commercially interesting. The National Aeronautics and 
Space Administration has accumulated large quantities of remote sensor 
(i*e. satellite) data on this bay which in conjunction with an adequate 
hydrodynamic and salinity model should prove useful in resource and 
pollution studies. A point of particular interest in many of the photo- 
graphs of Mobile Bay taken from satellites is that the ship channel 
stands out from the rest of the bay. See the photograph in front piece. 
Because the bay water is opaque, the bottom of the bay cannot be seen 
from the altitude of the satellite. Therefore, the contrast between 
the ship channel and the shallow waters on either side must be the con- 
sequence of a complex surface phenomenon. Again a computer model should 
be of value in establishing what that phenomenon is. 

The Army Corps of Engineers is responsible for maintaining ship 
channels in the bay and for evaluating the impact of proposed new 
channels. A model with sediment transport incorporated in it would be 
valuable in scheduling dredging operations in existing channels. As it 
presently stands, the model developed here can be used to assess the 
effect of islands formed from dredging spoils on the circulation and 
salinity patterns, matters of critical concern to the oyster industry 
in the bay. A unique feature of the present work is that the bay’s 
main ship channel has been included by representing the channel with a 
vertical two-dimensional model that is Interfaced with the three- 
dimensional model of the bay proper. It is feasible to evaluate the 
effects of new channels in this fashion at the cost of some additional 


programming . 
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B* MOBILE BAY 

The following description of Mobile Bay relies heavily on that 

presented by Shah and Farmer (1976). Mobile Bay, located on the 

northern edge of the Gulf of Mexico, is roughly pear shaped as can 

be seen in Fig. 1.1. The bay has an approximate length of 51 km and 

an average width of 20 km; the maximum width is 36 km. Its boundaries 

are delineated by relatively steep banks on the eastern, western and 

southern edges and by a causeway on the north. The overall area of 
2 

the bay is 1022 km . The average depth is 3 m at mean low water with 
maximum of 18.3 m occurring near the tidal inlet to the Gulf, the 
Main Pass. This inlet is 4.8 km wide between Mobile Point on the 
east and Dauphin Island on the west. The Pass Aux Herons, the tidal 
inlet that connects the bay with the Mississippi Sound to the west, 
is 3.7 km wide and 1.1 m deep on the average. During the diurnal 
tide cycle, these passes contribute on the order of a billion cubic 
meters of flow into and out of the bay. 

Aside from an average of 69 inches of rainfall evenly distrib- 
uted through the year and several small streams entering the east 
and west sides of the bay, the fresh water sources are four inter- 
connected rivers entering the north end of the bay. These rivers, 
the Mobile, Tensaw, Blakeley and Appalachie, are the distributaries 
of the Mobile River which results from the junction of the Tombigbee 
and Alabama Rivers. The respective depths of the rivers entering 
the bay are 9, 9, 6 and 8 m. The Mobile and Tensaw Rivers are the 
major contributors of fresh water and sediment to the bay. 
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Figure 1.1— Mobile Bay 
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The Mobile Harbor Ship Channel connects the lower anchorage near 
Mobile Point with the State Docks at the city of Mobile, This channel 
is maintained at a depth of 12,2 m and a width of 122 m by the Army 
Corps of Engineers. High salinity water intrudes almost the entire 
length of the channel at depths below the natural depth of the bay. 

The other channel of major significance in Mobile Bay is the Gulf 
Intracoastal Waterway, which extends from Apalachee Bay, Florida, to 
Brownsville, Texas. Traversing the lower end of the bay, the waterway 
passes through Bon Secour Bay, crosses the main ship channel approxi- 
mately 4.4 km north of the Main Pass, and continues through the Pass 
Aux Herons into the Mississippi Sound. The depth of the waten<7ay 
ranges from 3.7 m to 5-5 m. Because it is only slightly deepter than 
the bay itself and has little influence on salinity patterns, the Gulf 
Intracoastal Waterway was neglected in the present work. 

As stated previously, the tides from Mobile Bay are diurnal; the 
difference between high and low tide normally range from 30. to 76 cm. 
While these tides promote mixing, a slight but measurable salinity 
stratification exists throughout much of the bay most of the time. 
Strong winds over the bay generate surface waves that can breakdown 
this concentration. The tide elevation is also strongly influenced by 
prevailing winds of several hours duration. 

C. SUMMARY 

This chapter discussed the concept of an estuary, presented moti-- 
vations for developing an estuarine model, and stated the objective 
of this work. A description of Mobile Bay was also given. In the 
next three chapters, the equations governing the phenomena of 
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interest, the numerical method used to solve the set of equations and 
the results of applying the model to Mobile Bay will be set forth. 

The final chapter will present conclusions regarding the model via- 
bility and recommendations for possible improvements and extentionso 
The appendices contain graphical displays of the model results and 
descriptions and listings of the computer model program and Varian 
plot program used in this research. 



CHAPTER 2 


THE GOVERNING EQUATIONS 

The philosophy followed in developing this model of Mobile Bay was 
to base the model on the fundamental laws pertinent to the system and 
to make as few restrictive simplifications as possible. Of course, the 
latter part of this philosophy had to be tempered by the necessity of 
remaining within the capabilities of the available computing facilities. 
This chapter presents the general governing equations, the necessary 
simplifications and the specific equations used. A statement of the 
required initial and boundary conditions is also given. 

A. STATE 

The brackish waters found in Mobile Bay are a consequence of the 
mixing of fresh water from the river complex and gulf water from the 
tidal inlets. The density of this mixture at any point in space and 
time depends on the local composition (i.e., the salinity s which is 
the mass of salts in grams per kilogram of brackish water or, equiva- 
lently, in parts per thousand, PPT), temperature T, and pressure p. An 
equation relating these variables is referred to as an equation of 
state and may be represented by 

P = p(s,T,p). (2-1) 

A theoretically derived analytical expression for Eq. (2-1) applied to 
brackish water over the range of values of s, T and p of interest is 
presently lacking. One recourse is to use a Taylor series to expand 
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the density about a reference value in terms of small changes in s, T 
and p. Thus, 

■ ”0 wis.p +(ltJs,T ''P <2-2) 

A suitable reference state corresponding to typical conditions in 

Mobile Bay would be s = 10. PPT, T = 20. “C and p = 1. bar where 
3 

p = 1.0058 gm/cm . For small changes in s, T and p, the partial deriv- 
atives in Eq. (2-2) are very nearly constant and may be evaluated from 
salinity-density, compressibility and thermal expansion data for sea- 
water such as that given in Home (1969). Thus, 


11^1 


-4 -1 

== 7,5 X 10 gm cm PPT 

= ^2.1 X 10 ^ gni cm ^ ^ 


■ (l?)s,T = ^*5 X 10~^ gm cm'^ bar'^. 

Estimates for expected differences in the variables s, T and p in the 
horizontal direction at a given elevation over the length of the bay 
are 33. PPT, 10. C deg, and 0.1 bar, respectively. Therefore, the 
changes in density resulting from salinity variations are three orders 
of magnitude larger than those from temperature variations and five 
orders of magnitude larger than those from pressure variations in the 
horizontal. Estimates for differences in s, T and p in the vertical 
direction in slightly stratified shallow water (i.e., depth less than 
3. m) are 2. PPT, 2. C deg and 0.3 bar, respectively. Here changes in 
density due to salinity variations are two orders of magnitude larger 
than those from temperature variations and four orders larger than 
those from pressure variations. Beeper waters may be more stratified 
with appreciably larger differences in salinity but not temperature. 
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From the above discussion, it is apparent that the fluid in Mobile 
Bay is essentially incompressible and, to a good approximation, iso- 
thermal. Furthermore, density is a linear function of salinity only, 
with the consequence that density is a measure of the composition of 
the brackish water. In the rest of this work, composition will be 
denoted by S which is defined by 


S = 


so that 


P “ Pf 


P = Pf + 3S 


(2-3) 


(2-4) 


where 


- density of fresh water, gm cm 


-3 


-3 

p = density of gulf water, gm cm 
S 

■ S = Pg-Pf. 

The variable S, which might be termed the normalized density anomaly, 
will range between zero and unity. : 

For reference, the relationships between p, S and two other mea- 
sures of composition will be listed and examined. These measures are 
salinity s and mass fraction salts They are related to p and S as 

follows : 


^r\ 

p = + 3S = Pj + s = p^ + a 0 ) 


(2-5) 


where a = 1000. (3p/3s). The reference density p^ in Eq. (2-2) has 
been replaced by p^, the reference salinity taken as 0. PPT so that 
As = s, and the pressure and temperature terms neglected. Also, the 


relation ta. = s/1000, has been used. It should be noted that these 

A 


relations are strictly valid only over a limited range of salinities, 
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say 0, to 40* PPT, which fortunately covers the range found in the 
problem at hand. Also, from an analytical standpoint, it is exceed- 
ingly convenient that the density is a linear function of the composi- 
tion variable in each case. 

B. MASS CONSERVATION 

In this section, the mean continuity equation for an incompres- 
sible, variable density fluid in turbulent flow is developed. As 
derived in several transport phenomena texts, for instance. Bird, 
Stewart and Lightfoot (1960) and Slattery (1972) , the equation govern- 
ing mass conseivation in terms of the mass density p and the mass 
average velocity u is 

+ div (pu) = 0. (2-6) 

The divergence term in Eq. (2-6) may be expanded and the resulting 
equation rearranged tO' 

div u = 0, (2-7) 

where ^ is the substantial derivative operator or the total derivative 
operator following the mass average velocity. While Eq. (2-7) is rig- 
orously correct, its inclusion in the system of equations to be solved 
is undesirable because it admits sound waves to the possible solutions 
of the system which in turn requires very small time steps in finite 
difference schemes in order to achieve stability. One way to avoid 
this difficulty is to simplify Eq. (2-7) to 

div u = 0 (2-8) 

which filters sound waves from the possible solutions (see Kamenkovich, 
1975) . This simplification may be justified by an analysis suggested 
by Batchelor (1967). 
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If 


1 


P 


Dp 

Dt* 



(2-9) 


where L is a length scale representing the minimum distance over which 
large variations in u occur and V is a velocity scale representing the 
variation in |u| in both time and space over the distance L, then Eq. 
(2-8) is a reasonable approximation to Eq. (2-7). Since, in general, 
the flow under consideration will be turbulent, the appropriate length 
and velocity scales are the smallest length scale occurring in the flow 
and its associated velocity scale. These are the Kolmogorov micro- 
scales (see Tennekes and Lumley, 1972) and are given by 

L = V = - (2-10) 

where v is the kinematic viscosity of the fluid and e is the dissipa- 
tion rate of turbulence energy per unit mass of fluid. To test whether 
Eq. (2-9) is satisfied or not, one must also have an estimate for 
Obtaining such an estimate requires the use of the relations in Eq. 
(2-5), as well as an equation governing species conservation. Presum- 
ing no chemical reaction occurs and diffusion is of the Fickian type, 
one then finds the equation of species conservation at the continuum 
level presented in transport phenomena texts as 

It ^ ^ tpl>^gi^ad(w^)] , (2-11) 

where is the mass concentration of the species, is the mass 
fraction of the species, and is the mass diffusivity of the species 
in the solution. In this case, the species is total salts. By noting 


that 
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(P^) + dlv (p^u) = — (p^) + u • grad (p^) + p^ div u 


D 


52 .= 

"A Dt 


(P*) - w* T^^ P ’ 


Eq. (2-11) may be rewritten as 




(2-12) 


Applying the substantial derivative to the first and last parts of 
Eq. (2-5) gives 


52 - = 

Dt 


“ dF <“a> 


and combining this result with Eq. (2-12) yields 
H = ^div [pD^ grad (co^)]. 


(2-13) 


If is used to represent the variation in over the length scale L 
and the distances in the spatial derivatives are approximated by L, 
then Eq, (2-13) may be modified and inserted in the inequality Eq. 
(2-9) to give 


-2^ 
ap D 


abV 


-2 


« 


V 

L 


which may be rearranged and combined with Eqs. (2-10) to yield 

The magnitudes of the various factors appearing in the left-hand side 

of this equation are as follows: 

1 A -3 

p = 1.0 gm cm 

-3 

a = 0.75 gm cm 

D^ = 1.3 X 10 ^ cm^ sec ^ 

= 4.0 X 10"^ 

= 1.0 X 10 ^ cm^ sec ^ 


V 
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These values substituted in Eq. (2-14) yield 4. x 10 ^ which is 
certainly much less than unity. Thus, for the system under considera- 
tion div u = 0, frequently called the equation of volume contintiity, is 
an excellent approximation to the equation of continuity, Eq. (2-7). 

The discussion to this point has been in terms of instantaneous 
values of the flow field variables. Since the flow field under consid- 
eration is turbulent, these instantaneous values fluctuate rapidly and 
with a certain degree of randomness. Because it is practiaily impos- 
sible to track these fluctuations numerically, it is necessary to 
express the governing equations in terms of variables with the turbu- 
lent . fluctuations averaged out. Having determined that div u = 0 is 
the appropriate equation to describe mass conservation at the continuum 

level, one can proceed to an equation at the turbulence level by util- 

lim 1 ^ 

izing the ensemble or statistical averaging operation ^ a^ 

tTx 

where a^ is the instantaneous value of an observed variable in the i 
realization of an ensemble of repeated experiments. The reader is 
referred to Leslie (1973), p. 6, or Townsend (1976), p. 4, for an 
Introductory discussion of the concept of an ensemble mean and its rela- 
tion to the more conventional time mean. Denoting the ensemble mean 
velocity by u and the fluctuation about the mean or turbulent velocity 
by u’, one has that u « u + u’ and 

div (u + u') = 0 (2-15) 

Averaging Eq. (2-15) over an ensemble of flow realizations, an opera- 
tion indicated by ( ) , one obtains 
(div (u + u')> = 0 
which reduces to 


div u = 0 


(2-16) 
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since the divergence and averaging operators are commutative and 

(u + u’ ) = u. Eq. (2-16), which in a rectangular cartesian coordinate 

system reads 

I; ® (V) + w - 0 (2-17) 

where u, v, w are the components of the ensemble mean velocity in the 
X, y, z directions, respectively, is the mean volume continuity 
equation. 

C. SPECIES CONSERVATION 

As stated in the previous section, the species continuity equa- 
tion is 

It ^“a^^ (2-18) 

assuming no chemical reactions occur and brackish water can be approx- 
imated by a binary mixture of salts and water. The first term on the 
left side of this equation represents the rate of accumulation of the 
salts in a differential volume of fluid fixed relative to the coordi- 
nate system while the second term represents the net efflux of salts 
across the boundaries of the differential volume by convection. The 
term on the right side models the net influx of salts resulting from 
ordinary diffusion. This equation governs the instantaneous values of 
the flow field variables at the continuum level. 

To obtain a useful equation at the turbulence level it is neces- 
sary to treat the density and mass diffusivity in Eq. (2-18) as con- 
stants. Neither assumption is in serious error physically since the 
density varies by only 3% and the diffusivity by 6% for the range of 
salinities encountered in estuaries. Moving p inside the gradient 
operator gives 
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1^ (p^) + dlv (p^u) = div [D^g grad (p^) 3 . (2-19) 

Substituting ensemble mean plus turbulent fluctuation variables for p . 

A 

and u in this equation and applying the averaging operation introduced 
in the previous section gives 

^It **" ^A^ + p^) (u + u')]- - div[D^grad(p^ + p^)]> = 0 

which reduces to 

(P^) + div (p^u) = div [D^grad(p^)] - div(p^u'> (2-20) 

after rearrangement. The physical significance of each term in Eq. 
(2-20) is the same as for the corresponding term in Eq. (2-1&) except 
that a new term representing the net influx of salts into the differen- 
tial volume by turbulent diffusion now appears. The correlation (p?u'), 
frequently called the turbulent mass flux vector, is an unkno\m that 
must be modeled in terms of known flow field variables if a closed 
system of working equations is to be had. A common practice is to 
invoke an analogy with the ordinary diffusion term in the above equa- 
tion and write the turbulent mass flux vector as 

where is a second-order tensor whose components are turbulent dif- 

fusion coefficients or eddy diffusivities and the dot • denotes the 
operation of taking an inner product in cartesian coordinates. See 
page 25 of Hinze (1959) or Corrsin (1974) for a discussion of the 
necessity of using a second-order tensor as opposed to a scalar in any- 
thing other than isotropic turbulence. 

Inserting the expression for (p^u’) given by Eq. (2-21) into Eq. 
(2-20) and rearranging yields 
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— (p^) + div (p^u) = div • grad p^) 

where is the effective diffusivity tensor given by 

%(e) AB= =(t) 


(2-22) 


(2-23) 


I is the identity tensor; the off-diagonal components of 5(g.) 
erally nonzero. It is known that for fully turbulent flows the 
diagonal components of several orders of magnitude larger than 

D . The flow in this work is considered to be fully turbulent every- 

jcU5 

where except in close proximity to solid boundaries and the equations 
are applied away from these boundaries. Therefore, ordinary diffusion 
is neglected and D. . set equal to D. .. The components of D, . are 
unknowns like those of the vector (p^u') and are subject to measurement 
and prediction. This topic will be taken up in a latter section of the 
present chapter. Finally, by dividing Eq. (2-22) with the density p 
taken as a constant and utilizing the relation between mass fraction 
salts (D and normalized density anomaly S given by Eq. (2-5), one can 


rewrite Eq. (2-22) as 

■ (S) 4- div (Su) = div (D^^^'grad S). 


(2-24) 


This is the mean species continuity equation* In terms of its compo- 
ents in a rectangular cartesian coordinate system it reads 

® + fe <^> + If - 

fe h ^ V If “xz 

— [D 1“ (s’) + D (s’) + D |-(S’)] + 

3y *• 3 ?x 3x yy 3y ^ yz 3z 

[D |- (?) + D |r (S) + D |- (?) ] . 

3z zx 3x zy 3y zz 3z 


(2-25) 
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D. MOMENTUM CONSERVATION 

The equation governing the conservation of linear momentum in a 
Newtonian fluid at the continuim level may be written 

(u) + div (uu) ” “ (p) + ^ grad (u) + §, (2“26) 

Here, p is a scalar called the mean pressure, v is the kinematic 
viscosity^, and g is the body force vector* All other symbols retain 
their previous definitions. The first term on the left models the 
accumulation of momentum per unit mass of fluid in a differential 
volume fixed relative ro the coordinate system; the second tern repre- 
sents the net efflux of specific momentum across the differential 
volume boundaries due to convection. Note that in cartesian coordi- 
nates uu is a dyadic product and, therefore, a symmetric second-order 
tensor. The first term on the right models the force per unit mass 
resulting from the mean pressure. The second term on the right sym- 
bolizes the shearing stresses per unit mass due to the relative move- 
ment or deformation of the fluid. The last term is the body force per 
unit mass resulting from the gravitational force field of the earth. 

An equation in terms of the ensemble mean flow field variables is- 
developed by substituting mean plus fluctuating variables for u and p 
in Eq. (2-26) and ensemble averaging the result. To pursue this course 
of action successfully, it is necessary to assume that density fluctua- 
tions are so small that there are no relevant correlations between the 
fluctuations in density and the derivatives of fluctuations in velocity 
and mean pressure. In essence, this assumption along with the approxi- 

^q. (2-26) has been written assuming that V is constant. This is a 
valid approximation for brackish water; see Horne (1969). 
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mation that div u = 0 are tantamount to invoking the Boussinesq approxi- 
mation; see Kamenkovich (1975) . The result is 

g 

(u) + div tuu) = 

- ^ grad p + V div grad (u) - div + g (2-27) 


which contains terms analogous to those in Eq. (2-26) plus a new term, 

- div which is the net increase of specific momentum due to 

turbulent shear stresses. The set of nine turbulent velocity correla- 
tions (u^u’), six of which are distinct, is commonly called the 
Reynold's stress tensor. 

The components in the Reynold's stress tensor are unknowns and, 
just like the components of the turbulent mass flux vector, they must 
be modeled in terms of known flow field variables if a closed system of 
equations is to be had. Again the common practice is to write by 
analogy with the viscous stress term 




(2-28) 


where the eddy viscosity tensor, is a tensor of at least second- 

_ — T 

order and possibly, fourth-order, and D={grad (u) + [grad (u)] }/2 is 
the deformation tensor. If the latter is the case, the inner product 
operation would be replaced by the double inner product operation so 
that the result would be a second-order tensor. See page 22 of Hinze 
(1959) for a limited discussion of the need for tensorial representa- 
tion of eddy viscosities. Specification of the components of will 

be taken up in a latter section of this chapter along with those of the 
eddy diffusivity tensor. 

Substitution of the expression for (u'u') given above into Eq. 


(2-27) produces 
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“ (u) + div (uu) = “ ^ grad p + 2 div ’D) + g 

where is the effective eddy viscosity tensor defined by 


(2-29) 


(2-30) 


In fully turbulent flows the diagonal components of are generally 

several orders of magnitude larger than the kinematic viscosity; there- 
fore, following the argvunent of the previous section is set equal 

‘ With the addition of one more term to the right-hand side, Eq. 
(2-29) becomes the working momenttjm conservation equation. This term 
accounts for the fact that the governing equations are written for a 
coordinate system rotating relative to the inertial coordinate system 
attached to the fixed stars. Called the Coriolis effect, it is written 
--25 X u where Q is the earth’s angular velocity vector and the cross x 
denotes the vector product operation. See page 22 of Waldrop (1973) 
for a fuller discussion of the origin of the effect. Its consequences 
are that large scale flows in the northern hemisphere tend to turn to 
the right if not restrained by a boundary parallel to the flow direc- 
tion. If such a boundary is present, slopes in the free surface result 
that balance this apparent force through pressure gradients. Dyer 
(1973) discusses the influence of the Coriolis effect on various types 
of estuaries. The final form of the mean momentum equation is 


1^ (u) + div (uu) = 

- i grad (p) + 2 div (N. . *D) + g - 2ft x u (2-31) 

p o s:(e) = - ~ ~ 

Tn expanded form, the x-directed component of this vector equation is 



21 


V‘87<"^ J 
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+ g - 2 (J2 w - Ji v) . 
®K y z 


(2-32) 


Analogous equations exist for the y and z directions. 


E. ENERGY CONSERVATION 

For completeness an energy equation will be presented even though 
it is not used because the estuary xonder consideration is isothermal. 
If, as shown in Slattery (1972) or Bird, Stewart and Lightfoot (1960) , 
a kinetic energy equation derived from the momentum equations is sub- 
tracted from the total energy conservation equation, an equation for 
the internal energy results. If the internal energy is expressed in 
terms of temperature through the proper thermodynamic relationships, 
the fact that div n = 0 utilized, and allowance for energy transfer 
by thermal radiation made, this equation reads 

8T 1 1 

*** (uT)) = — div (k grad T) + — div q + v$ (2-33) 

V ot p p -r V 

where the new symbols are as follows: 

= heat capacity at constant voliane^ 

T = temperature 

X 

K « thermal conductivity 


Both the heat capacity and thermal conductivity of seawater may be 
treated as constants over the ranges of ten 5 >erature and salinity 
encountered here. See Home (1969). 
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q = thermal radiation flux vector 

= positive viscous dissipation function. 

The viscous dissipation function* is generally neglected unless the 
flow approaches sonic velocity and will not be considered further. 
Averaging this continuum equation over an ensemble of turbulent flow 
realizations gives 

• |^(T) + div(uT) = (pC^)“^div[K^^jgrad(T)] + (pC^)"^div(^^) (2-34) 

where 


^(e) ■ i 5(t) 


(2-35) 


As in the previous two sections, the eddy conductivity is ^ 

second-order tensor with diagonal components several orders of magni- 
tude larger than k so that the effective conductivity may be set 

equal to (2-34) is the mean equation describing the tem- 

perature distribution within in a turbulent flow field once the com- 
ponents of have been specified. Its application is no different 

conceptually than that of the mean equation for conservation of 
normalized density anomaly, >,Eq. -*^>(2^:24 


F. EDDY TRANSPORT COEFFICIENTS 

This section will be limited to a discussion of eddy diffusivi- 
ties and viscosities. Eddy conduct ivities> would be handled in a 
fashion very similar to that for eddy diffusivities. At the outset, 
it should be made clear that eddy transport coefficients are proper- 
ties of the flow field and not the fluid itself. Therefore, anytime 
significant changes are made in the boundary conditions or the flow 
geometry, the possibility that different eddy transport coefficients 
will be required has to be considered. To add to the complexity of 
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the problem, these coefficients may vary with position in steady flows 
and with time and position in unsteady flows. 

As presented in the development of the mean conservation equa- 
tions, the eddy transport coefficients have tensor properties. While 
the physics of the problem demand this character of the transport 
coefficients, it is only in the simplest of flow geometries that suf- 
ficient numbers and types of measurements have been made to enable one 
to specify components other than those on the main diagonal. See 
Corrsin (1974) for a determination of off-diagonal components in the 
eddy conductivity tensor when applied to turbulent heat transfer in a 
boundary layer and a circular jet. In estuarine flows experimental 
measurements and theory have advanced only to the point that it is 
possible to estimate the diagonal components. Consequently, the eddy 
diffusivity and viscosity tensors must be simplified to 
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respectively. This restricted form of the eddy transport tensors 
implies that they are oriented with their major axes parallel to the 
coordinate axes. Since the selection of the coordinate directions are 
somewhat arbitrary, particularly in the horizontal plane, and the 
magnitude of an eddy transport tensor component should depend on 
whether it is for a direction parallel or perpendicular to the flow or 
stable density stratification, the above simplified eddy transport 
tensors are not completely adequate for geometrically complex, time- 
dependent flows. To utilize what remains of the eddy diffusivity 
tensor, one often assumes that equals and neglects them since 
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mass transfer in the horizontal plane Is dominated by advection or 

sets them equal to D on the assumption that the turbulence is nearly 

z z 

isotropic. In the case of the eddy viscosity tensor, and are 

retained and often set equal and N is ignored. The dependence of 

zz 

the remaining eddy transport coefficients on stable density stratifi-- 
cation is formulated in terms of the gradient Richardson number; this 
topic is discussed below. Furthermore, when a solution to the equa- 
tions is obtained by a finite difference scheme, there are apparent or 
artificial viscosities and diffusivities that compensate for the 
neglected horizontal transport and confuse the issue when it is not. 
These simplifications in the eddy transport tensors allow attention to 

be focused on the prediction and measurement of D , N and N , a 

zz XX yy 

topic to be considered shortly. 

Although eddy transport coefficients can be determined by dye or 
particle release experiments, they are generally calculated from field 
measurements of mean flow properties through the appropriate conserva- 
tion equations. Since measurements of estuarine flows are expensive 
and prone to error, there is a dearth of quality eddy coefficient data 
based on short term (say, one minute) averages of the flow properties. 
More frequently, the eddy coefficients found in the literature are 
based on averages of the mean flow properties over the entire tide 
cycle. These tidal-average eddy coefficients are generally an order 
of magnitude smaller than the short-term values and are not appropri- 
ate for the problem at hand. Dyer (1973) presents tables of tidal- 
average coefficients for salt and momentum transfer in several differ- 
ent estuaries and quotes a few short-term eddy viscosity values 
obtained by Bowden and others. The short-term values are not directly 



applicable to Mobile Bay because the bay in which they were measured 
is geometrically different. Consequently, the eddy transport coeffi- 
cients used in the present model are estimated values obtained from 
theoretical and empirical considerations. 

Another number associated with turbulent transport of scalar 
quantities is the dispersion coefficient. This coefficient appears 
in the diffusive terms of conservation equations that have been spa- 
tially averaged in one or two directions in order to reduce the dimen- 
sionality of a given problem. It has the two-fold task of accounting 
for (1) the difference between the .convective transport resulting from 
the actual velocity distribution and that predicted by the spatially- 
averaged velocity and (2) the turbulent diffusive transport. See page 
432 of Daily and Harleman (1966) for a rudimentary discussion of these 
coefficients. Levenspiel and Bischoff (1963) develop the concept at 
length. Since the present model is fully three dimensional, disper- 
sion coefficients are inappropriate. 

The following discussion of eddy transport theory parallels that 
of Bowden and Hamilton (1975). While the discussion is phrased in 
terms of a two-dimensional flow, it is applicable to three-dimensional 
flow in light of the approximations presented in the first paragraph 
of this section. Furthermore, the theory is based on a broad spectrum 
of flow problems in which estuarine flows are a representative, but 
complex case. 

The Prandtl mixing length hypothesis relates the eddy viscosity 
coefficient to the magnitude of the mean velocity gradient by 
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where Jl, the mixing length, is to be prescribed in some manner and the 

flow is assumed to be parallel to the x-axis and to vary only in the 

Z“direction. For instance, in the constant stress layer of turbulent 

flow parallel to a wall, the mixing length is given by 

A - k (z + z ) (2-37) 

o o 

where k is Von Karman’s constant and z is the size of the wall 
o o 

roughness elements. Since the velocity profile in this layer is log- 
arithmic in the distance from the surface, the eddy viscosity is 


N 

XX 




(2-38) 


where u^, the friction velocity, is related to the wall shear stress 
by u^ = / Wp . For uniform flow in a two-dimensional, open channel 
of depth h and with no applied stress at the free surface, a mixing 
length of the form 

£ = k z (1 - z/h)^^^ (2-39) 

o 


has been proposed. The corresponding velocity profile is logarithmic 
and the eddy viscosity coefficient given by 

^xx ~ “ z/h) . (2-40) 


Both £ and N become zero at the free surface, approach small values 

XX 

at z = z and have maxima at mid-depth. The maximum value of N is 

O XX 


(N _) = T k U. h . 

XX max 4 o * 


(2-41) 


While the preceding formulations for the mixing length are 
derived for steady flows, they appear to be applicable to neutrally 
stable tidal flows during maximum flood and ebb. At other times 
during the tide cycle, the velocity profiles deviate significantly 
from the logarithmic curve. Furthermore, the velocity profile near 
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the free surface exhibits a weak dependence on N so that to a good 
approximation the eddy viscosity can be taken as a constant above the 
friction layer located at the bottom. Based on measurements in 
neutrally stable tidal currents offshore, Bowden, Fairbaim and Hughes 
suggested that N increase linearly from the bottom by Eq, (2-38) up 
to z = ah and then have the value 

\x " (2-42) 

from there to the free surface. The corresponding velocity profile is 

logarithmic in the lower segment and parabolic above. For their 

observations, a “ 0.14 gave the best fit. 

Order of magnitude estimates of the eddy viscosity during maximum 

flood and ebb currents can be made with the formulations presented 

above. Utilizing the empirical relationship 

T = pu? = kpU^ (2-43) 

o ^ 

where k is a friction factor having a value in the range 0.0025-0.005 
and U is the depth-mean velocity, Eqs. (2-41) and (2-42) may be 
rewritten as 

(N J = 5.1 X 10“^ Uh (2-44) 

XX' max 

and 

(N ) = 2.9 X 10~^ Uh for z > 0.14 h (2-45) 

XX max 

respectively, if Von Karman^s constant is taken as 0.41 and the fric- 
tion factor as 0.0025, a typical value. In addition, the eddy diffu- 
sivity is generally presumed to be equal to the eddy viscosity 
in neutrally stable or homogeneous waters. As pointed out by Bowden 
and Hamilton (1975), it is physically mrealistic to assume that N 
remains constant throughout the tide cycle, and yet tidal currents 
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appear to be reasonably well modeled with a time-in depen dent eddy 
viscosity* When nonhomogeneous waters are considered, the eddy trans- 
port coefficients may be modified to account for the reduction in 
vertical turbulent transport induced by stable density stratifications. 
A set of modifications, proposed by Munk and Anderson (1948) as a 
result of a study of the thermocline in the open sea, are 

N = (K ) (1 + (2-46) 

and 

« + 3.33Ei)-^-= (2-47) 

where Ri is the gradient Richardson number given by 

^ ~ iz (2-48) 

and (N _ ) = (B ) are values for neutrally stable flows. Dif- 

ferent modifications, or dan5>ening factors, are used for the eddy 
viscosity and eddy diffusivity because stable density stratification 
influences the two coefficients differently. 

This examination of eddy transport theory is somewhat cursory by 
intent. The reasons for the superficiality are two-fold. First, 
there are several formulations for eddy transport coefficients in 
estuarine flows, none of which are completely adequate. Bowden and 
Hamilton (1975) devote an entire literature article to assessing the 
influence of eddy transport coefficients of the following forms on the 
results of a two-dimensional model in the vertical: 


1) 

N 

= 2D 

== a 

constant 

XX 

zz 



2) 


= N + 

N^hl 

|ii| 

XX 

o 

1 ' 


D 

= D + 

D^hl 

|u| 


zz 

o 

1 ^ 



where N = 2D and N = 2D 
o o 1 . 



29 


3) = (1 + 

°zz " °o ^ ■*■ 

where N = 2D , N- = D- aud 
o o^ 1 1 

m, g, q, P are constants. 

The Richardson number in the above is of the overall type and is 
defined by 

Ri = g^hApU ^ 

where Ap is the density difference between the bottom and surface. 
Bowden and Hamilton conclude that the third form is the best model, 
but that it is not entirely adequate for the range of conditions 
encountered in their study. The present author objects to their use 
of the depth-mean velocity and overall Richardson number in these 
formulae. These parameters are of little value when tidal effects are 
weak and salt water intrusion is strong. In a three-dimensional 
model, Leendertse and Liu (1976) utilize eddy transport_coefficients 
of the form * 

where m and r are constants. For the y-directed momentum equation N 
is replaced by and u by v in the exponentional term. Second, 
there are strong arguments that eddy transport coefficients are inade- 
quate models of turbulence. Harsha (1971), after reviewing all the 
current eddy viscosity models for planar mixing layers and circular 
jets and con 5 )aring their predictions against the available experimental 


data, concluded: 
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It is doubtful whether methods which fall to take into 


account the fact that the flow is turbulent, and not laminar 
with some badly behaving viscosity, can ever be made to agree 
with more than a small range of experiments. It is clearly 
time that the methods of analysis of turbulent flow recognize 
that it is indeed turbulent. 

To overcome the limitations of simple eddy transport coefficient 
models, considerable work with turbulent kinetic energy models and 
Reynold's stress closure schemes has been conducted since the mid- 
1960 ^s. For an introduction and recent reviews of the state of these 
turbulence models, the reader is referred to Chapter 5 of the textbook 
by Reynolds (1974) and the articles by Reynolds (1976) and Lumley and 
Khajeh-Nouri (1974). In order to give an impression of the complexity 
of the partial differential equations involved and the degree of 
empiricism required, a two-equation model proposed by Spalding and 
coworkers (1974) for a two-dimensional boundary layer will be presen- 
ted. The equations are 


n 2 -1 

N = C-pq e 
XX 5 




£ 9 . _ 

3i 
3 


-> if = i ft) * 

where q is the turbulent kinetic energy per unit mass of fluid, e is 
the dissipation rate mass of turbulent kinetic energy per unit mass 
and through are constants determined by applying the equations 
to limiting cases. This model requires that two more partial differ- 
ential equations be solved and the attendant boundary conditions be 
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specified, neither of which are trivial tasks. Furthermore, Corrsin 
(1974) presents an analysis that indicates the concept of eddy trans- 
port coefficients is strictly applicable to limited ranges of length 
scales, time scales and variations in the mean flow properties that are 
not found in many turbulent flows of interest. The turbulent kinetic 
energy models are suspect because they explicitly contain eddy trans- 
port coefficients* To circumvent this problem, if it is one, one must 
use a Reynold’s stress closure scheme that contains even more equations 
and empirical constants. See Lumley and Khajeh-Nouri (1974) for the 
details of one such scheme. 

Despite the complexity and empiricism of these higher order models, 
they have the potential advantage of a wider range of applicability 
than the simpler eddy transport coefficient formulations. Still, none 
of these schemes have advanced to the point where they can be effec- 
tively applied to three-dimensional, time-dependent free surface flows 
with the available numerical methods and computing facilities. In 
light of the above situation, constant eddy transport coefficients 
multiplied by gradient Richardson number dependent dampening factors, 
as in Eqs. (2-46) and (2-47), were used in this work. 

G. WATER LEVEL 

A realistic model of a tidal estuary requires that one account for 
changes in the water level (i.e. , the location of the free surface or 
the interface between the water and the atmosphere above it) with 
horizontal position and time. Noting that div u = 0 implies fluid 
volume is conserved, one can derive an equation governing the vertical 
motion of the water level by performing a fluid volume balance on the 
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differential clenent shown in Fig. The bottom of the element is 

located in a horizontal reference plane denoted by that is below the 
lowest water level. The top of the clement coincides with the free 
surface which has an elevation denoted by h = h(x,y,t). Sides 1 and 2 
are in planes perpendicular to the x-axis and have a width of Ay; sides 
3 and 4 are perpendicular to the y-axis and have a width of Ax. The 
flux of fluid 'Volume through the bottom of the element is denoted by 
w^. Performing the volume balance yields 

\ — — 

Ay(/ ^ ^ Ax(/ ^ 3^2 - / + AxAyw^ 


= (AxAy / 


dz) 


o 

where the subscripts 1 through 4 associate the variables with the 
appropriate element faces. Dividing this equation by AxAy and taking 
the limits as Ax and Ay approach zero gives 





vdz + w 

o 


or 


at 



udz 



vdz + w 

o 


(2-49) 


o o 

since z^ is independent of time. Eq. (2-49) has been derived in terms 
of ensemble mean values of the variables h, u and v, and is referred to 
as the mean water level equation where mean is not to be confused with 
a time average over a tide cycle. If the instantaneous values (i.e., 
mean plus fluctuating components) were used Instead and an ensemble 
average of the resulting equation taken, Eq.* (2-49) plus the terms 




Figure 2,1 - Differential element at free surface 
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a Iri-h' _ hrfh* _ 

- ^ f_ (u + u') dz> ~ ~ (v + v') dz) 

h ^ h 

added to 'the right hand side would be obtained. These terms are 
neglected in the subsequent work by assuming that the free surface is 
smooth and determined by long gravity waves (i.e, , the length of the 
wave is large compared to the depth of the flow) . 

H. APPLIED EQUATIONS 

The state equation,mean conservation equations for mass, species 
and momentum, and the mean water level equation set forth in the pre- 
ceding sections are sufficient to describe the dynamics of an isothermal 
estuary if proper initial and boundary conditions are supplied. A 
general analytical solution to this set of partial differential equa- 
tions and initial-boundary conditions is presently impossible because 
of the nonlinearities in the system. On the other hand, specific 
analytical solutions can be derived only after many drastic simplifica- 
tions are made, and the results obtained are of limited applicability. 

If the phenomena modeled are restricted to those associated with long 
gravity waves and essentially horizontal flows, then the inertial and 
convective acceleration, turbulent momentum diffusion and Coriolis 
terms in the vertical momentum equation are small compared to the pres~ 
sure gradient and gravitational acceleration terms and may be neglected. 
Commonly used in estuary and oceanic modeling, this simplification is 
called the hydrostatic approximation (Dyer, 1973; Bowden, 1967). 

Besides being based on sound physical ground, this approximation has 
the added benefit of greatly reducing the computational effort required 
to obtain a solution because it facilitates the pressure field 
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calculation. The numerical scheme used in this work utilizes this 
fact to full advantage. However, the approximation should not be con— 
sidered a limitation on the scheme because the neglected terms in the 
z-directed momentum equation could have been retained. 

The other simplifications made concern the models for the turbu- 
lent diffusion of mass and momentum. The model used for turbulent 
mass diffusion is 


2 2 2 

D, [-^ (S) + ^ (S) 1 + D ^ (S) 

3x 3y dz * ‘ 

where eddy diffusivity is constant and is Richardson number 

dependent. The model for turbulent momentum diffusion is simplified 
2 2 



to N — 2 x-directed momentum equation and N — ^ Cv) in the 

3z 3 e 

y-directed equation. In both equations the eddy viscosity N is 

Richardson number dependent. Turbulent diffusion in the z-directed 

momentum equation is neglected in making the hydrostatic approximation. 

The decision to retain the horizontal turbulent diffusion terms in the 

species continuity equation and to neglect the corresponding terms in 

the momentum equations is the fact that mass generally diffuses faster 

than momentum. 'For either quantity, the turbulent diffusion rates in 

the vertical are significantly larger than those in the horizontal and 

the horizontal convective rates dominate the corresponding turbulent 

diffusion rates. For convenience in future discussions, the actual set 


of equations used in the model are presented in Table 2.1. 


I. INITIAL-BOUNDARY CONDITIONS 

According to the theory of partial differential equations, second- 
order, linear, constant coefficient equations in one dependent and two 
or more independent variables can be classified as being hyperbolic. 
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TABLE 2.1 
Applied Equations 


I. State 

p = + 3S 

II. Volume Conservation 


Ij- (u) + 1^ (V) + W = 0 

III. Species Conservation 

(S) = - &) - (VS) - 

2 2 2 
+ D [•— (S) ■+ ^ (S)] + D (?) 

^ 3x 3y ^ 3z 

IV. x-Directed Momentum Conservation 


3 , 3 2- 3 . — , 3 19 /•— X 

^ (u) = -^ (u ) (uv) - — (uw) - (p) 

- 

+ N — 2 
3z 

V. y-Directed Momentum Conservation 

3 /—X 9 /--X 9 2x 9 / — X 19 X 

3^ (V) - - (uv) - — (V ) - — (vw) - -5^ (P) 

a^ - 

+ N — 2 “ fu 

3z 

VI. z-Directed Momentxam Conservation 


“ = -s 

VII. Eddy Transport Coefficients 
N = N „ (1 + 10. 

may -L 


D = D 
1 max 

(continued) 


(2-bO) 

(2-51) 


(2-52) 


(2-53) 


(2-54) 


(2-55) 


(2-56) 
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TABLE 


VIII. 


2.1 (continued) 


D„ = D (1 + 3.33 Ri) 
2 max 


-1 3p .3 f-1 ^ -2.0.5 *2 


(2-56) 


Water Level 

Ir w - fe - It + "o 

z z 

0 o 


(2-57) 
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parabolic or elliptic by exaiaining the coefficients of the highest 
order derivatives in the equation. Once the equation has been classi- 
fied, specification of initial and boundary conditions fbllow in a 
straightforward manner. For instance, if the equation is parabolic, 
one initial condition (the value of the dependent variable as a function 
of position at the initial time) is specified throughout the domain 
of the problem and one boundary condition (either the value of the 
dependent variable or its first spatial derivative normal to the 
boundary or a condition on a combination of both values) is specified 
at all points along the boundary of the problem domain. Unfortunately 
the problem at hand can not be reduced to a second order, linear, 
constant coefficient equation in one dependent variable. In fact, it 
consists of a system involving seven dependent variables and seven 
equations of either the partial differential or algebraic type. Par- 
tial differential equation theory has not developed to the stage that 
such a complex system can be classified as to type and the required 
initial boundary conditions automatically determined. Thus, one must 
base the specification of these auxiliary conditions on the physics of 
the problem and on the requirements of the numerical scheme used to 
solve the system of equations. A set of auxiliary conditions based^ on 
the physical aspects of the problem are presented in Table 2.2 and dis- 
cussed below. These initial-boundary conditions will be discussed 
again in the next chapter because their implementation in the numerical 
scheme is not always straightforward. 

Since the problem is time dependent, obviously a set of initial 
conditions on the dependent variables will be required. These should 
be physically realistic with regard to the expected behavior of the 
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TABLE 2.2 

Auxiliary Conditions for the Applied Equations 


Initial Conditions^ 



S = S^(x,y,z) 

P = P^CXjy.z) 

v^(x,y,z) 

h = h^(x,y) 

p = p^(x,y,z) (2-58) 


w = w^(x,y,z) 


Boundary Conditions 

o Solid surface 

2 

+ No mass transfer condition 
9S 


3n 


= (grad S) *n = 0 


+ Inviscid flow velocity conditions 


u*n = 0 = 0 

- ~ 3n‘~ 


+ Viscous flow velocity conditions 
u = 0 

+ Surface wave reflection condition 
3h 


8n 


= 0 


o Flow surface 

+ River mouth conditions 


u = u^(x,y,z,t) S = Sj^Cxjy.Zjt) 


3n 


= 0 


(2-59) 


(2-60) 


(2-61) 


(2-62) 


(2-63) 


+ Tidal inlet conditions 

-|^ (u) = 0 h = h^(-x,y,t) S = S^(x,y,z,t) or = 0 (2-64) 


The subscripts 0 and 1 denote initial conditions and boundary 
-conditions, respectively. 

n denotes a unit vector normal to the boundary surface and n, the 
distance in the direction of n, (continued) 
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TABLE 2 . 2 (continued) 


o Free surface 

+ Pressure condition 

P = Pi(x,y»t) 

+ Shear stress condition 

T = -r =0 
xz yz 


+ Wind induced shear stress condition 

,4/3 


T = C COS 0 

XZ w w 


T = c V ■' sin 0 
yz w w 


where = v^^(x,y,t) and .0^ = 0^^(x,y,t) 


(2-65) 


( 2 - 66 ) 


3 


c is an empirical constant. 
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system for the imposed boundary conditions and they must satisfy those 
equations not containing time derivatives such as the volume conserva- 
tion, hydrostatic and state equations. The boundary conditions can be 
grouped according to the type surface under consideration. These are 
solid, flow and free surfaces where the first consist of the bottom and 
banks of the hay, the second the river mouths and tidal inlets, and the 
third the interface between the water and the overlying atmosphere. 

The condition on the salt concentration at a solid surface is that 
there is no diffusion of salt through the surface and thus that the 
normal gradient (i.e., the gradient in the direction normal to the 
surface) of the concentration is zero. The conditions on the velocity 
vector at solid surfaces depend on the type of flow expected in the 
region adjacent to the surface. If the flow is inviscid, then the 
normal gradient of the magnitude of the velocity is zero. If the flow 
is viscous, the velocity vector itself will be zero at the surface.. 

For reasons to be explained in the next chapter, the inviscid flow 
will be associated with solid surfaces corresponding to the banks of 
the bay and the viscous flow with the bottom. In both cases, the com- 
ponent of the velocity vector normal to the surface is zero at the 
surface. Another boundary condition associated with solid surfaces, 
vertical banks in particular, is that the normal gradient of the water 
level is zero at the surface. This condition is based on the fact that 
the theory of small amplitude surface waves on an ideal fluid predicts 
that the waves are reflected exactly at vertical walls. 

• The most troublesome boundary conditions to specify are those at 
flow surfaces because the nature of these conditions depend on whether 
inflow or outflow occurs and on what combination of velocity, water 
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level and salinity distributions one is predicting as opposed to 
forcing. In the present work, the velocity and salinity distributions 
in the river mouths are forced while the water level distribution is 
predicted. Since both inflow (i.e., flow into the bay) and outflow 
occur at the river mouths in the course of a tide cycle, the forced 
salinity distribution may become inappropriate if high salinity water 
is convected from the interior of the bay across the flow surface. The 
normal gradients of the water level at the river mouths are set to zero 
due to a lack of data and the physical intuition that these gradients 
have little influence on the water level in the interior of the bay. 

At tidal inlets ideally the water level distributions are forced and 
the velocity distributions are predicted. The salinity distributions 
may be forced over a portion of the tidal inlet, say below a certain 
elevation, and predicted over the remaining area during ebb tide and 
forced over the entire area during flood tide. In those portions of 
the flow surface where velocity or salinity distributions are predicted, 
the normal gradients of the pertinent variables are set to zero* As in 
the case of the river mouths, the forced salinity distribution in the 
tidal inlet may become inappropriate if low salinity water is convected 
through the corresponding area. The pressure and density distributions 
at both solid and flow surfaces are determined by the water level and 
salinity distributions as a consequence of the hydrostatic and state 
equations. On the free surface, the pressure, which is equal to the 
atmospheric pressure, and the shear stress are forced boundary condi- 
tions. The shear stress is related to the wind velocity at an 
elevation 10. m above the water level through an empirical relationship 
presented by Hsu (1972). 



CHAPTER 3 


THE NUMERICAL MODEL 


A. LITERATURE SURVEY 

The governing equations presented in the preceding chapter form 
the basis for most estuarine models appearing in the literature. 
Differences in the published models stem from the simplifications of 
the governing equations used to make .the problem more manageable and 
from the numerical techniques employed to solve the simplified equa- 
tions. A comprehensive survey of the literature on estuary models 
would be prohibitively long since interest in the field has grown 
rapidly in recent years and resulted In numerous publications. However 
if one limits oneself to time-dependent models that are truly three 
dimensional and account for tidal phenomena and transport of a scalar 
such as salt or heat, the relevant literature is considerably smaller. 
Numerical models meeting these requirements have been developed by 
Leendertse and others (1973), Waldrop and Farmer (1973), and Spraggs 
and Street (1975). Before listing other relevant literature and dis- 
cussing these models in detail, the following observations are in order 
A characteristic, common to the three works listed is that explicit 
finite difference methods were used to solve the momentum and scalar 
transport equations. This trait is a consequence of the fact that in 
three-dimensional, time-variant fluid flow problems, fully Implicit 
finite difference methods or finite element methods require more com- 
puter storage than is currently economical to use. Furthermore, 
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semi- implicit finite difference methods such as^ the altemating- 
direct ion-implicit scheme are extremely difficult to apply in three- 
dimensional problems with complex geometries* The reader is referred 
to Roache (1976) for a discussion of implicit finite difference methods 
and to Oden and others (1974) and Gallagher and others (1975) for 
finite element methods as applied to fluid flow problems. Street (1976) 
reviews several models applicable to estuarine systems but not neces- 
sarily meeting the requirements outlined above. 

Leendertse and others (1973) and Leendertse and Liu (1975) 
employed the hydrostatic approximation and conservation equations that 
have been averaged over horizontal layers. These layers were of con- 
stant but not necessarily equal thickness in all but the top layer. 

The thickness of the top layer varied in space and time with the water 
level. Their calculation sequence is as follows. At each new time 
level, horizontal velocity components, salinities, temperatures and 
water levels were computed through the corresponding conservation 
equation from flow field variables at the preceding two time levels. 
Vertical velocities were obtained from the new horizontal velocities 
through the volume continuity equation. The density field was calcu- 
lated* from the new salinities and temperatures through a sophisticated 
state equation and the horizontal pressure gradients from the new water 
levels and densities through the hydrostatic equation. Turbulent dif- 
fusion of momentum, salt and heat was modeled with eddy transport 
coefficients in the vertical and dispersion coefficients in the hori- 
zontal directions. While the dispersion coefficients were equal and 
constant, the eddy transport coefficients depended on the vertical 
gradient of the local horizontal velocities and on the gradient 
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Richardson number* The Richardson number dependency promoted turbulent 
diffusion in unstable density stratifications and inhibited it in 
stable situations. Examples of these relations may be found on pa. 29 
of Chapter 2. Since centered difference approximations to the space 
and time derivatives were used,, the numerical scheme may be classified 
as a midpoint rule or leap-frog method. This method is conditionally 
stable for pure convection problems but unstable for combined convec- 
tion-diffusion problems if the diffusion terms are evaluated with flow 
field variables at the same time level as those used to evaluate the 
convection terms. To prevent, instability the turbulent diffusion terms 
were computed with flow field variables from the preceding time level. 
The maximum stable time step was limited by the Courant-Friedricks-Lexcry 
(CFL) criterion and a dxf fusion stability condition. After extensive 
testing on simplified as well as real estuaries, Leendertse and Liu 
(1975) concluded that the model was viable even though special pre- 
cautions were required to prevent instabilities from originating at 
tidal inlet boundaries. 

Rather than make the hydrostatic approximation, Waldrop and 
Farmer (1973, 1974) elected to neglect the local acceleration and 
Coriolis terms in the vertical momentum equation but to retain the 
convective acceleration and turbulent diffusion terms in addition to 
the pressure gradient and gravity terms. The water level calculation 
was based on the approximation that the rate of change in the water 
level is proportional to the rate of change in the vertical velocity 
component at the free surface. - This approximation becomes exact as the 
gradients in water level become small; but it should be re-examined 
when applied to problems where significant tidal variations occur. In 
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the publication cited, tides were not considered* Waldrop and Farmer 
stretched the grid system in the horizontal directions to improve reso- 
lution in the region of greatest interest* The calculation sequence is 
primarily the same as that in the model of Leendertse and others except 
that only flo^-j field variables at the preceding time level were used^ 
the water level was computed after the vertical velocity components , 
and the pressure field as opposed to the horizontal pressure grad- 
ient field was explicitly calculated. Turbulent diffusion was modeled 
with eddy transport coefficients that were spatially invariant but not 
necessarily equal in magnitude for each direction. The numerical . 
scheme is a forward -in- time, center ed-in-space method since forward 
difference approximations to time derivatives and central difference 
approximations to space derivatives were employed. The max im u m stable 
time step was limited to approximately one half that given by the CFL 
criterion. 

The model developed by Spraggs and Street (1975), Roberts and 
Street (1975), and Street (1976) is an extension of the marker-and-cell 
methods applied to constant composition, nonisothermal flows. The three 
velocity components and temperature at a new time level were computed 
from the flow field variables at the preceding time level through the 
corresponding conservation equations in an explicit manner. Then the 
pressure field was computed from the flow field variables at the previ- 
ous time level through a modified Poisson equation derived from the 
momentum and volume conservation equations . Successive— over relaxation 
was employed to solve the Poisson equation at each time level. The 
density was then calculated from a state equation. The water level 
distribution was obtained from a kinetic free surface equation by a 
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double-sweep alternating -direction -implicit method that rendered the 
solution insensitive to rotations of the coordinate system about the 
vertical axis. The turbulent diffusion terms were modeled with tem- 
porally and spatially variant eddy transport coefficients calculated 
from the rate of strain tensor for the mean velocity field and the 
dimensions of the local grid cell. The eddy transport coefficients did 
not depend on a Richardson number. Forward difference approximations 
were used for time derivatives and centered differences for the space 
derivatives except for the convective terms where a windward differenc- 
ing scheme was employed. Apparently the critical stability limitation 
for this model was the CFL criterion. Because an iterative calculation 
was required to obtain the pressure field at each time level. Street 
(1976) concluded that the model is too expensive to be used for long 
real time calculations. 

B. DESCRIPTION OF NUMERICS 

The finite difference method utilized in the present work repre- 
sents an extension of the method developed by Waldrop and Farmer (1974). 
The method and the modifications made to it since the last published 
description will be discussed in detail below. The discussion will 
proceed from the nondimensionalization of the partial differential 
equations to the grid system used and the temporal and spatial discreti- 
zation of the applied equations to obtain finite difference equations. 
Then the calculation sequence will be presented. Finally, the numeri- 
cal viscosity, stability, convergence and accuracy of the method will 


be considered. 
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Nondlmensionalization of Applied Equations 

It is generally accepted that proper scaling or normalization of 
the variables in a problem will result in a more accurate numerical 
solution. For this reason, the applied equations of Table 2.1 were 
rendered dimensionless with the following reference variables: 
pj = density of fresh water 

H = length characteristic of the depth of the flow 
g = gravitational acceleration 

The nondlmensionalization was accomplished by dividing the variables in 
the applied equations by combinations of the reference variables as 
shown in Table 3.1 and then canceling common factors. Note that the 
normalized density anomaly S does not appear in the table because it 
is already dimensionless. If the asterisks are dropped, equations 
identical to those of Table 2.1 are recovered except that and g are 
replaced by unity; therefore, that table will not be repeated here. 

Note that dimensionless variables and equations will be used in the 
remainder of this work except where it is noted otherwise . To 
emphasize this fact a period will be substitued for the hyphen in 
equation numbers when the equation is nondimens ional. Furthermore, the 
bar over ensemble mean variables will be dropped since it is understood 
that the mean conservation equations are being used. 

Configuration of Grid Systems 

The implementation of a finite difference method requires that 
the partial differential equations be discretized, that is, the partial 
derivatives in the equations must be replaced by appropriate finite 
difference operators. The differences for these operators are defined 
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TABLE 3.1 

Dimensionless Variables 

1. Density p* = p/p^ 

2. State equation constant 3* = 3/p^ 

3 . Position vector X* = x/H 

4. Pressure p* = p/CP^Hg) 

5. Time t’’* = t//H/g 

6. Velocity u* = 

7. Eddy viscosity ....... N* = N'/(Hi^H^) 

8. Eddy diffusivity D* = D/(Hvii^) 

9. Coriolis parameter f* = f /(/g/H) 
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In terms of a grid system superimposed on the time and space domain of 
the problem. Modeling Mobile Bay required the use of two spatial grids 
of different dimensions, a three-dimensional grid for the bay proper 
and a two-dimensional grid for the ship channel. A two-dimensional 
vertical grid was judged adequate for the ship channel because it is 
straight, deep and narrow relative to the bay dimensions. Furthermore, 
attempting to use a three-dimensional grid for the bay and channel 
combined would result in the waste of many grid points because they 
would be located in the ground. The three-dimensional spatial grid 
employed in the bay proper is indicated schematically in Fig. 3.1. The 
grid system for the space and time domain is generated by repeating the 
spatial grid system at increments of At along the t-axis. 

The discretization process in effect replaces the problem vari- 
ables defined at an infinity of points in time and space by a set of 
discrete variables defined at a finite number of points in time and 
space generated by the intersections of the grid planes. Thus it 
becomes convenient to number or index the grid points with Integers 
and to specify grid points with their indices. Thus, the space and 
time coordinates of a general grid point are denoted by t = t{n}, 

X = x{i}, y = y{j} and z = z{k} where the integers (n,l,j,k) are 
specifically associated with the coordinates (t,x,y,z), respectively. 
The value of any time and space dependent variable, say Q, at a 
general grid point is denoted by Q{n,i,j,k}. 

A horizontal view of the three-dimensional grid with the bound- 
aries of Mobile Bay indicated is presented in Figure 3.2. The origin 
of the coordinate system for the grid is located 5. m below mean sea 
level at the State Docks below the Mobile River. The positive x-axis 
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Figure 3.2 - Top view of three-dimensional grid and bay boundaries 
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is directed due south, the positive y-axis due east, and the positive 
z-axis upward. The ship channel is approximately aligned with the 
x-axis in reality and was taken as being exactly aligned with it in the 
model. The y-axis coincides with the causeway across the northern end 
of the bay. The grid planes intersecting the x- and z-axes are spaced 
at constant increments Ax and Az, respectively, V7hile the increments 
between the grid planes intersecting the y-axis vary with distance 
along that axis. The variation in the y-axis grid increments is such 
that resolution is increased in the vicinity of the ship channel at the 
expense of reduced resolution near the east and west banks. The motive 
for generating such a grid system was that large horizontal gradients 
in the flow variables were expected to occur along the channel and high 
resolution in the area of steep gradients generally results in more 
accurate solutions overall. 

Programming an efficient computer code is facilitated if the grid 
increments for a given coordinate direction are equal in size. Equal 
increments in the independent variable can be obtained by defining a 
coordinate transformation or stretching function, say Y = Y(y), such 
that equal increments in Y give the desired distribution of increments 
in y, and then rewriting the partial differential equations in terms 
of the new independent variable Y. This last step is accomplished by 
applying the chain rule to the derivatives involving the coordinate to 
be transformed. For instance, working with the general dependent 
variable Q, one has that 

19. = 1£y* (3.1) 

■ 3y 3Y 

and 
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3y 


(3.2) 


where 


Y' = ^ and Y" = ^ 


dY 

dy 


(3.3) 


dy 


Eqs. (3.1) and (3.2) are used to express the derivatives with respect 
to y in the equations of Table 2.1 in terms of derivatives with respect 
to Y so that y appears as an independent variable in derivatives of 
Y only. The particular stretching function employed to transform the 
y-axis in the Mobile Bay model is 


Y = tan ^ (k.,^ y) 


or y = k^ tan (k^ Y) 


(3.4) 

(3.5) 


where Y ranges from -1. to 1. and k^^ and ^2 are constants. The con- 
stant controls the distribution of increments in y. The smaller the 

value of k 2 > the more evenly the grid planes tend to be distributed; 
the larger the value of k^, the more the grid planes tend to be concen- 
trated about the x-axis. In any case, k 2 should be between 0. and ir/2. 
The constant k^ is fixed by the maximum absolute value of the variable 

y* 

The two-dimensional grid employed in the ship channel is shown 
schematically in Fig. 3.3. Having the same origin and grid increments 
in the x- and z-directions. as the three-dimensional grid for the bay, 
the two-dimensional grid coincides with the latter for positive values 


of z. 
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Model Boundaries 

The solid and flow surfaces in the Mobile Bay model were estab- 
lished by approximating the prototype boundaries with a set of 
rectangular, flat surfaces oriented normal to the coordinate axes* All 
vertical solid surfaces in the model are located midway between the 
grid planes that bound them. Thus, a vertical solid surface in the 
model oriented perpendicular to the x-axis and falling between x{i} and * 
x{i+l} is located at x{i} + Ax/2, while one oriented perpendicular to 
the stretched y-axis and falling between y{i}, and y{j+l} is located at 
y{j} + (AY/2)[(YHj} + YMa+l}/2] All flow surfaces are vertical 
and coincide with grid planes. Horizontal solid surfaces are positioned 
at any elevation desired within the grid. below z{k - 2}. This 
restriction was imposed so that at least one general interior point 
exists in each grid column. The reason for the additional flexibility 
in positioning the horizontal surfaces will become apparent when the 
boundary conditions are discussed. 

Using the approximations described above, the sides of Mobile Bay 

are treated as steep banks which is reasonably accurate. The bottom of 

the bay is fitted with a patchwork of horizontal rectangles located at 

elevations corresponding to the average local depth at each vertical 

grid column and vertical rectangles to seal the gaps. The resulting 

/ 

model boundaries are illustrated in the top and side views of the grid 
system in Figs. 3.2 and 3.3, respectively. 

The degree of approximation used in fitting the location of the 
free surface depends on the particular applied equation involved. For 
the horizontal momentum equations applied at grid points just below the 
free surface, a crude approximation is sufficient with the surface being 



fixed at an elevation midway between the t<bp grid plane and a fictitious 
grid plane one vertical grid increment above the top plane. An excep- 
tion to this statement ,is that the gradient of the shear stress induced 
by wind is dependent on the actual free surface location at each 
vertical grid column. A better approximation is required for the 
vertical momentum and water level equations so the free surface is 

located a distance h{n,i,i} - z{k } above the top grid plane at each 

max 

vertical column. The latter .fit to the free surface is shown In 
Fig. 3.3. 

Finite Difference Equations^ 

The appropriate finite difference operators referred to in the 
preceding subsection will now be presented. The presentation will be 
in terms of the fictitious dependent variable Q at an arbitrary grid 
point internal to the flow field. .To facilitate the presentation of 
the finite difference equations, several of the operators vzill be 
assigned symbols. 

First-order, spatial derivatives in the linear terms of the con- 
servation equations are approximated by central difference operators. 
These operators are denoted by A where the subscript x indicates the 
coordinate direction with respect to which the difference is taken. 

The point about which the operator is applied and the size of the 
spatial increment used is indicated by the indices of the dependent 
variable. For instance, the first derivative of Q with respect to x 
evaluated at the grid point (n,i,j,k) is approximated by 
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or if the coordinate has been stretched as y in the present work, by 

Ip- Q{n,l,j ,k} = AyQ{n,i,j,k} 

= (2AY)“^(Ytj})(Q{n,i,j+l,k} - Q{n,i,j-l,k}) (3.7) 

where Y’{j) is given in Eqs. (3*3). The first-order derivative with 
respect to x evaluated at a point midway between the grid points 
(n,i,j,k) and (n,i+l,j,k) is approximated by 

1^ Q{n, 1+1/2, j,k} A^Q{n,i+l/2,j ,k} 

= (Ax)“^(Q{n,i+l,j,k} - Q{n,i,j,k}) (3.8) 

Second-order, spatial derivatives in the conservation equations are 
also evaluated with central difference operators. The fact that the 
operator represents a second order derivative is indicated by repeating 
the subscripts on the s 3 nnbol for a central difference operator twice. 
Thus the second derivative of Q with respect to x evaluated at the grid 
point (n,i,j,k) is approximated by 

— 2 ~ A Q{n,l,j,k) 

3x 

= (Ax) ^(Q{n,i+l,j,k> - 2Q{n,i,J,k} + Q{n,i-1, j ,k}) (3.9) 

or for the stretched coordinate y by 

3^ C 

— 2 ~ A Q{n,i,j,k} 

3y 

= (AY)“^(Y'{j})^(Q{n,i,j+l,k} - 2Q{n,i,j,k} + Q{n,i, j-l,k}) 

+ (2AY)~\Y*'{j})(Q{n,i,j+l,k} - Q{n,i,j-1, k}) (3.10) 

The second-order, central difference operators are applied only at 
defined grid points and not at points midway between grid points in the 
present work* The truncation error for a finite difference operator 
is the error made in approximating a derivative by the operator. This 
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error can be assessed by deriving the operator from Taylor series 
expansions of the dependent variable about the points where the opera- 
tor is applied. The truncation errors for the central difference 
operators presented above are second order in the grid increment; that 
is, the error is proportional to the square of the grid increment and 
the operators are said to be second -order accurate. 

The first-order derivatives in the convective terms of the momen- 
ttim and species conservation equations are nonlinear and represent a 
special case in finite differencing when they are important to the 
problem solution. Apparently no single difference operator can dupli- 
cate all the properties associated with the convective derivatives. 
Roache (1976), Spraggs and Street (1975) and Codell (1973) discuss 
several difference operators in terms of such concepts as phase error, 
n\jmerical viscosity, the conservative property, the transportive 
property and truncation error. Truncation error has already been 
defined and numerical viscosity will be discussed later in this chapter. 
Phase error is related to the rates at which the various wavelengths in 
a Fourier series representation of the dependent variable are trans- 
ported. If some wavelengths move at the proper rates while others do 
not, phase errors are said to exist. A difference operator has the 
conservative property if it is capable of identically satisfying 
integral formulations of the conservation laws disregarding round-off 
errors. It has the transportive property if it convects a local dis- 
turbance (i.e., a disturbance at a single grid point) in the direction 
of the local velocity only. While the consensus is not unanimous, the 
following upwind difference operator presented by Roache (1976) appears 
to be superior in terms of the above mentioned properties. Let Q 
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represent a conserved quantity such as specific momentum or a chemical 
species and u and v represent velocity components in the x and y 
directions, respectively. Then the convective derivative is approxi- 
mated by 

1^ (uQ){n,i,j,k} = A^(uQ){n,i,j,k} = (Ax)"^(vLpQj,-UgQjg) (3.11) 

where - 0,5 (u{n,i+l, j ,k} + u{n,i,j,k}) 

X 

Ug = 0.5 (u{n,i,j,k} + u{n,i-l, j ,k}) 

- ^ Q{n,i,j,k} if u > 0 

Q{n,i+l,j,k} if -Up < 0 

^ Q{n,i-l,j,k} if u > 0 

Q{n,i,j,k> if Ug < 0 

and the subscripts F and B are intended to suggest forward and backward, 
respectively. For the stretched coordinate y, the operator is given by 

1^ (vQ){n,i,j,k) = Ay(vQ){n,i,j,k} 

= (AY)“^(Y’{j})(Vj.Qg-VgQg) (3.12) 

where v„, v^, Q„ and Q„ are defined in a manner analogous to the cor- 
F B If B 

responding variables in Eq» (3.11)* The truncation error for this 
upwind difference operator is formally first-order in the grid incre- 
ment, but the error approaches being second order when the conserved 
quantity is distributed uniformly (i.e., 

All the terms involving spatial derivatives in the applied equa- 
tions of Table 2.1 may be approximated by selecting an appropriate 
finite difference operator from those introduced above with one excep- 
tion, the integro-differential term of the water level equation. The 
difference operator for this term and a symbol to denote the operator 
are now* defined. The approximation is, letting m = n + 1, 



61 


z{k -1} 
max 


udz){n,i,j} 3 


“x^z{k -1}‘ 


max 


= (8Ax) ^[(u{m,i+l,.j,k__} + u{m,i+l,j,k -1} + u{m,i,j,k } 


max 


max 


+ u{m,i,j,k -1}) (h{n,i+l,j} + h{n,i,j} + 2Az) 
max 

- (u{m,i,j,k^^} + u{m,i,j,k^^-l} + u{m,i-l,j,k^^} 

+ u{m,i-l,j ,k^^“l}) (h{n,i,j } + h{n,i,j+l} + 2Az)] 

or for a stretched coordinate such as y, it is 
h 


(“/ 

^3y 


vdz){n,i,j} ~ A^lMj’^’^J,v{m,i,j,k} 

z{k -1} y 

max 


max 


(3.13) 


= [4(y{j+l}-y{j-l})] ^[(v{m,i,j+l,k^^}+v{n,i, j+l,k^^-l} 

+ v{m, i, j ,k }+v{m,i, j ,k -1}) (h{n,i, j+l}+h{n,i, j }+2Az) 

max max 

- (v{m,i,j,k^^}+v{m,i,j,k^^-l}+v{m,i,j-l,k^^} 

+ v{m,i,j ,k -1» (h{n,i,j)+h{n,i,j-l}+2Az)] (3.14) 

max 

Note that (AY) has been replaced by the equivalent [(y{j+l) - 

y{j-l})/2] ^ and that z{k^^-l} corresponds to the z^ of Eq. (2-5). 

The I in the symbol for the operator is intended to suggest the integral. 
Since the operator is centered about the point of its application, it 
should be second-order accurate. 

Now all the terms Involving spatial derivatives in the applied 
equations of Table 2.1 can be represented by finite differences. The 
results of doing so are given in Table 3.2. There is a one-to-one 
correspondence in the terms for each equation in the two tables with 
four exceptions. Remembering that the variables have been made dimen- 
sionless so that pj and g are replaced by unity, one finds the excep- 
tions to be as follows: (1) In the volume conservation equation, the 

gradients in the horizontal velocity components are evaluated at 
(n,i, j,fc4'l/2) by averaging central difference operators applied at 
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(n,i,j,k) and (n,i, j ,krl-l) . The motive for using this particular 
approximation will become apparent when the calculation sequence is 
discussed below. (2) The z-directed momentma equation (or hydrostatic 
equation) has been modified before differencing it. The applied equa- 
tion is 




which upon integration from elevation z to the free surface gives 
h 

p = / pdz^ (3.16) 

z 

if atmospheric gage pressure is taken to be zero. If Eq. (3.16) is 
applied to freshwater in static equilibrium and having a water level 
located at z - z{k } which corresponds to mean sea level in the 
present work, one has that 

...J 


’’aq ' ^ 


max 


dz for z < z{k } 
— max 


(3.17) 


p _ = 0 

eq 


for z > z{k } 
max 


Subtracting Eqs. (3.17) from Eq. (3.16), rearranging and applying 
p = 1. +(3S gives 

h z{k } 

p* = p — p " / pdz* + / ^^3Sdz* for z < z{k } 

z{k } z ~ 

h (3.18) 


p - p 


eq 


/ pdz’ 


for z > z{k } 
max 


The pressure difference p* represents the deviation of actual pressure 


from a reference pressure caused by changes in water level and density. 
The advantage of using p' instead of p in calculations with numbers of 
finite length is primarily realized when pressure gradients are induced 
by density variations or small deviations in the water level from the 



TABLE 3.2 


Finite Difference Equations 


I. State 

p = 1. + 3S{n,i,j,k}, = 1. - 3S{n,i,j,k} 

II. Volume Conservation 

A%{n,i,j ,kfl/2} » -0.5(A^u{n,i,j ,k+l} + A^u{n,i,j,k} + AS{n,i,j,kH} + AyV{n,i, j ,k}) 

III. Species Conservation 

1^ S{n,i,j,k} = -A^(uS){n,i,j,k} - Ay(vS){n,i,J,k} - A^(wS){n,i, j,k} 

+ D^(A^^S{n,i,j,k} + AyyS{n,i,j ,k}) + D2A^^S{n,i,j ,k> 

S{n+i,i,j,k} = S{n,i,j,k} + (0.5) (|^ S{n,i,j,k} + S{n-l,i, j ,k}) (At) 

IV. x-Directed Momentiam Conservation 

u{n,i,j,k} = -A^(uu){n,i,j,k> - Ay(vu){n,i,j ,k} - A^(wu){n,i, j ,k> 

“ + NA^ «{a,i,j,k} + fv{n,i,j,k} 

u{n+l,i,j,k} = u{n,i,j,k} + (0.5) (l^ u{n,i,j ,k} + |^ u{n-l,i, j ,k>) (At) 


(3.19) 

(3.20) 

( 3 . 21 ) 

(3.22) 

(3.23) 

(3.24) 


CTi 

00 



TABLE 3.2 (continued) 


V'. y-Directed Momentum Conservation 

v{n,i,j ,k} = -A3(uv){n,i,j,k} - A^(w){n,i,j ,k} - A^(wv){n,i,^.,k} 

dt X y z ^ 

- p“^A%’{n,i,j,k} + NA^ v{n,i,j,k} ■r fu{n,i,j,k} 

y 

v{n+l,i,j,k} = v{n,i,j,k} + (0.5) (|^ v{n,i,j ,k} + -|^ v{n^l,i,j,k}) (At) 

VI. z-Directed Momentum Conservation . 

p'{n,i,j,k^^} = ph{n,i,j} for k = k 


max 


A^p'{n,i, j ,lsH-l/2} = -0.5g(S{n,i,j ,k} + S{n,i,j,kfl}) for>k < k 

Z ^ t 

VII. Water Level 


max 


^ max ^ ^ max 


„+ Y(A^h{n,l,j} + A^h{n,l,j}) 


h{n+l,i,j} = h{n,i,j} + (0.5)(|r h{n,i,j} + 




VIII. Eddy Transport Coefficients 

N = N (1. + 10. Ri)“*^’^ 
max ^ 

D., = D (1. + 3.333 Ri)"^*^ 

2 max 

Ri = eA^S{n,i,j,k)[A^(u^ + v^)^*^{n,i,j ,k}] 


(3.25) ' 

(3.26) 


(3,27) 


(3.28) 

(3.29) 


(3,30) 


cn 

4N 
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reference level. In this situation, several significant figures of 
accuracy are retained that would be otherwise lost when horizontal 
pressure gradients are computed near the bottom of the flow field. Of 
course, this advantage diminishes as the deviations of the water level 
from the reference level increase. (3) An arbitrary term is added to 
the difference equation for the water level. This diffusion-like term 
has a stabilizing effect on the calculation. In fact, without the term 
the calculation would be unconditionally mistable. Determining the 
magnitude of Ys referred to as an artificial viscosity, will be dis- 
cussed later in this chapter when stability is considered in. detail. 

(4) With little error, the density in the Richardson number calcula- 
tion is taken to be unity. Thereby, an operation in an expression that 
is evaluated thousands of times in the course of a simulation is elim- 
inated. The density gradient in the Richardson number is simply g times 
the gradient of S. 

With consistent flow field data at time level n, the volume and 
z-directed momentum conservation difference equations of Table 3.1 are 
identically satisfied and 'the right-hand sides of the difference equa- 
tions containing time derivatives can be evaluated. To proceed to time 
level n+1, finite difference operators for the time derivatives are 
required. The forward difference operator, : 

Q{n,i,j,k} z (At) ^(Q{n+l,i, j,k} - Q{n|,i,j,k}) (3.31) 

which is first-order accurate in At, is commorily used. The use of this 
operator results in difference equations that ;can be solved explicitly 
for the dependent variable at time level 'n+1. Thus, 

Q{n+l,i,j,k} = Q{n,i,j,k} + (At) Q{n,i,j ,k}) 


(3.32) 



66 


where Q{n,i,j,k} represents the results of evaluating the right-hand 
side of a conservation or water level equation in Table 3.2. The 
limitations of the forward difference operator are the small allowable 
time step required for stable calculations and the fact that Solutions 
generated with it tend to oscillate from one time level to the next. A 
simple modification reported by Waldrop and others (1974) that improves 
stability and removes the oscillations is to replace 

Q{n,i,j,k} with j Q{n,i,j,k} + Q{n-l,i,j ,k}) 
to obtain 

Q{n+l,i,j,k} = Q{n,i,j,k} + (0.5) (|^ Q{n,i, j,k} 

+ 1^ Q{n-1, i, j ,k» (At) (3 .33) 

This modified forward difference operator is formally first-order 
accurate in At. It should be noted that when large time steps are as 
important as accurate solutions, there may be an advantage to using a 
first-order accurate finite difference operator for the time derivative. 
The advantage lies in the fact that the truncation error is directly 
proportional to At for a first-order accurate operator while it is pro- 
portional to a higher power of At for a higher order accurate operator. 
Thus the truncation error for the latter may be greater than that for a 
first order accurate operator at large time steps. Also note that the 
scheme represented by Eq. (3.33) is simple to implement and requires 
little additional computer storage or operations over that of the 
normal forward difference operator. 



67 


Boundary Conditions 

The finite difference equations developed in the preceding para- 
graphs apply at general interior grid points, that is, points whose 
closest neighbors are ionnersed in fluid, also. To those grid points 
located adjacent to or in solid, flow or free surfaces, special consid- 
eration must be given in order that boundary conditions applying at the 
surfaces are satisfied. In many cases, this is accomplished by assign- 
ing certain values to dependent variables at grid points located 
outside the flow field. To avoid conflicts that arise at convex 
corners of the flow field boundary, these assignments are made at the 
time the finite difference equations are evaluated. No data are stored 
in or retrieved from the computer- storage locations associated with 
igrid .points outside the flow field. Some boundary conditions require 
that the finite difference formulations of the applied equations be 
modified. The details of applying the boundary conditions will be 
presented at this point. The reader is referred to Table 2.2 for 
analytical statements of these auxiliary conditions. 

For a solid surface oriented normal to the x-axis as Indicated in 
Fig. 3.4, the no mass transfer condition by diffusion is satisfied by 
assigning the value of the species concentration at the point (i,j,k) 
inside the flow field to that of the point ( 2 !+l,j,k) outside the 
flow field at each time level. Thus, 

S{n,i+l,j,k} = S{n,i,j,k>. (3.34) 

For solid surfaces oriented normal to the other coordinate axes 
analogous assignments apply. 

The geometry of Mobile Bay is such that the grid increments in the 
horizontal directions must be on the order of kilometers in magnitude 
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Figure 3.4 - Typical grid point located adjacent model banks 
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if the number of grid points is to be manageable. Since the model 
banks are located midway between the bounding grid planes, the normal 
distance from a bank to the nearest grid point is still large. In 
fact, the distance is so large that the solid surface has negligible 
viscous effect on the velocity at nearby grid points. Thus, the appro- 
priate boundary conditions on the velocity field at the model banks 
are those for inviscid flow. The conditions of zero normal velocity 
and zero normal gradient in tangential velocity are implemented with 
the reflection technique of Richtmyer and Morton (1967) . Consider a 
grid point adjacent to a bank, such as point (i,j,k) in Figure 3.4 and 

the point (i+l,j,k) on the opposite side of the bank in the solid. The 

zero normal velocity condition at the surface is achieved by making the 
assignment 

u{n,i+l, j ,k} = -u{n,i,j,k}* (3.35) 

When the windward difference operator of Eq. (3.11) is applied at point 
(i,j,k) with respect to the x-direction, Eq. (3.35) will result in zero 
nomal flow at the bank, the desired result. Tli^ zero normal gradient 
in tangential velocity is implemented with the assignment 

v{n,i+l,j,k} « v{n,i,j,k}, (3.36) 

In contrast to the large grid increments required for the hori- 
zontal directions, the vertical grid increment is small, on the order 
of a meter. Thus, the bay bottom is relatively close to the adjacent 
grid points, and the viscous effects of the horizontal solid surface on 
the velocity at these points should not be neglected. Therefore, the 
viscous flow condition of zero velocity at a solid surface is applied 
to the bay bottom. On the other hand, the resolution of the grid in 
the vertical direction is not sufficient to accurately resolve the 
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steep gradients in velocity associated with turbulent flow near the 
bottom* To overcome this obstacle, the following artifice is employed* 
Consider the typical bottom grid point (i,j,k^^^) indicated schemati- 
cally in Fig, 3,5; note that the value of depends on the location 

of the vertical grid column (i,j). By assuming that the logarithmic 
velocity profile for a fully developed turbulent boundary layer applies 
from the bottom up to elevation + l},a horizontal velocity at 

(ijj obtained by several interpolation procedures. The 

procedure used here matches the slope of the model velocity profile 

with that of the logarithmic velocity profile at z{k } + Az/2, The 

bot 

interpolation fomula that accomplishes this match is 

u{n,iJ,k^ot^ = 

u{n,i,j,kj^^^ + l}-[l-A2(z^)"^(ln(z2/k^) + 8.5k^)“^] (3.37) 

where 


' ~ bottom elevation at grid column (i,j) 

k == length characteristic of bottom roughness elements 

o 

=0.4, von Karman^s constant. j 

An analogous formula may be written for v{n,i, j . This interpola- 

tion formula is flexible in that it allows the model bottom to be 

t 

positioned anywhere between grid points and that it accounts bottom 

roughness. Its greatest shortcoming is that it presumes that the flow 

( 

at the same direction as the flow at + 1} which is 


not necessarily true. The boundary condition on the vertical velocity 
component at the bottom is that the component is zero. This condition 
is imposed on the volume conservation equation by evaluating its finite 
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Figure 3.5 ~ Typical grid point adjacent to’ model bottom 
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difference form over a vertical height z{K } - {i»j} instead of 

Dot DOt 

Az and setting the horizontal and vertical velocity components to zero 
at Zj^^^{i,j} in equation (3.20). 

The boundary condition on the water level at the banks of the bay 
is the surface wave reflection condition. It is implemented by setting 
the water level at points outside the flow field equal- to the level at 

the corresponding point inside the flow field. For the typical hori- 

✓ 

zontal grid location (i,j) indicated in Fig* 3*4, this assignment is 

accomplished with 

h{n,i+l,j} = h{n,i,j} (3*38)‘ 

A top view of the grid configuration at a typical river mouth is 
given in Fig* 3*6. As the figure indicates, the width of the river 
mouth is generally smaller than the horizontal grid increment normal 
to the direction of the discharge. The forced flow condition at the 

t 

grid column located in the flow surface in the river mouth was imple- 
mented with 

u{n,i,j,k} = u^^Ll.-Cl.-C^/z^)^)] (3.39) 

u - 
max 

^^“avg (3.40) 

where 

Zi = z{k} - z^ot^i,j} 

u^vg “ tidal average river discharge velocity 

u _ ,u „ = amplitudes of first and second variations in 
varl var2 

discharge velocity 

^■1 j<i *9 phase lags for first and second variations 
T = period of tide cycle 
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u “ velocity at free surface 
max 

c = conversion factor relating average and maximum velocities 
for the profile used . 

Eq. (3-39) provides a flat velocity profile that rapidly drops to zero 

at the bottom of the river* Eq. (3.40) accounts for the time variation 

of the river flows and was obtained by fitting the trigonometric series 

to average river velocities-time data derived from field measurements. 

The velocity specifications presented above are for the actual cross 

sections of the river mouths. Before these velocities are used in the 

volume conservation equation -or in calculating the transport velocity 

for the convective acceleration term in the directed momentum equation, 

they are multiplied by the ratio of the width of the river mouth to 
’ -1 

|AY(YHj}) , the horizontal grid increment normal to the direction of 
!the river flow, in order to cbnserve fluid volume. The salinity dis- 
:tribution in the river mouths was given by 

S{n,i,j,k} = 0- (3.41) 

As commented in the previous chapter, this boundary condition would be 

I 

inappropriate if saltwater intrusion or reversed flow occurred at the 
river mouths to a significant extent. The concentration of the species 
at the flow surface during outflow would have to be obtained by extrap- 
olation from grid points in the interior of the flow field or by a 
simplified formulation of the species conservation equation. The 
boundary condition on the water level at the river mouths was imple- 
mented with i 

h{n,i,j} = h{n,i+l,j} _ (3.42) 

which implied that the water levels in the river mouths are essentially 



controlled by the water levels in the bay. This approximation is valid 
for the range of flows considered in the present work. 

The boundary conditions on the velocities in flow surfaces at 
tidal inlets are based on the assumption that the flow field does not 
change appreciably by the time it reaches a fictitious plane of grid 
points located one grid increment outside the flow field. Thus, in 
terms of the typical tidal inlet grid point (i,j,k) indicated in 
Fig. 3.7, the conditions on the horizontal velocity components are 
u{n,i+l,j,k} = u{n,i,j,k} 

v{n,i+l,j,k} = v{n,i,j,k>. (3.42) 

The vertical velocity component in the flow surface is calculated with. 

the volume conservation equation and the assignments of Eqs. (3.42). 

The boundary conditions on the species’ concentration are 

S{n,i,j,k} = 1 for z{k} < z{k .} 

— cut 

S{n,i+l,j,k} = S{n,i,j,k} during ebb *1 (3.43) 

V for z(k} > z{k } 
S{n,i-fl,j ,k} = 1 during flood J 

This first boundary condition is based on field data indicating that 

gulf water persists below a level throughout the tide cycle. 

The second condition allows bay water of low salinity to exit through 

the tidal inlet during ebb tide and gulf water to enter the bay during 

flood tide. The boundary condition for flood tide above 

presumes that the discharged bay water from the previous ebb tide is 

swept away by currents in the gulf or mixed with a large volume of 

gulf water so its salinity becomes essentially that of gulf water. The 

water level in the tidal inlet is a forced function of time. The 

function employed in this work is 

h{n,i+l,j} = h^^g + h^^ cos ( 2 ir(t{n}-^ 2 ) 




(3.44) 
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where 




h = tide average water level 
avg 

h = amplitude of the tide variation, 
var 

- phase lag in the tidal variation. 

The forced wafer level boundary condition was applied at the fictitious 
grid plane at x(i+l) in Fig. 3.7 because it was expected that flow 
geometry and Coriolis effects would generate gradients in the water 
level across the tidal inlets. Presently there are no published field 
data to substantiate this expectation or to generate water level forcing 
functions that are dependent on location across the inlets. However, 
one would expect there to be smaller lateral gradients in the water 
level than longitudinal ones at -positions removed from the inlets. 

The original intent was to treat both the Main Pass and Pass Aux Herons 
in the same way with regard to boundary conditions. As the development 
proceeded, it became necessary to treat the Pass Aux Herons with the 
river velocity boundary conditions for velocity with u^^^ being deter- 
mined as a percentage of the average velocity through the Main Pass, 

The treatment of the Pass Aux Herons boundary conditions will be dis- 
cussed in more detail in Chapter 4. 

If application of boundary conditions to solid and flow surfaces 
is complex and fraught with approximations, application of boundary 
conditions to free surfaces is doubly so because the surface is free to 
move and not necessarily bound between any two grid points for all 
time. In the present work, the approach to application of boundary 
conditions to the free surface is very simplistic but the particular 
implementations used are sufficiently accurate to obtain reasonable 
solutions. The implementations used may be divided into two categories; 
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Figure 3^7 - Typical grid configuration at a forced 
water level boxandary 
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1) those whose application of necessity depend on the exact location 
of the free surface, and 2) those whose application do not require 
such exactness. An approximation inherent in all the implementations 
used here is that the gradient of a quantity normal to the free surface 
is equal to the gradient in the vertical direction. 

The boundary conditions falling in the first category in the pres- 
ent work is the pressure condition, and the wind shear stress condition. 
The pressure condition was implemented through the first equation of 

Eqn. (3.27) where p*. = 0. The wind shear stress condition influences 

atm 

the horizontal velocity components at the elevation through the 

vertical gradients of the horizontally directed shear stress. This 
intluence is incorporated in the finite difference formulations of the 
horizontal momentum equations by adding extra terms of the form 

T^„/(h{n,i,j}-z{k } + Az/2) and /(h{n,i,j}-z{k } + Az/2) 

max yz max 

to the X- and y-directed equations, respectively when they are evalu- 
ated at ^{k^^}. These implementations, which account for the effect 
of the free surface location on the magnitudes of the gradients in a 
natural way, presume that the vertical diffusion of momentum at 
z{k^a 2 j}-Az /2 without wind is negligible in comparison to that induced 
by the wind. 

The boundary conditions falling in the second category are the no 
mass transfer condition and zero shear stress condition in the absence 
of wind. In terms of the t 3 ^ica-l grid point near the free 

surface in Fig. 3.8, these conditions were implemented with 



(3.45) 
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Figure 3^8 - Typical grid configuration at free, surface 
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where (k + 1) denotes a fictitious grid plane located a distance Az 

max " e> r 

above z{k } . The primary justification for using the course approxi- 
max 

mations of Eqns. (3.45) and (3.46) is that the implementation of more 
accurate specifications generally results in a slow computer code. Now 
that it has been demonstrated that the present model is operative, more 
accurate specification of free surface boundary conditions is a logical 
next step in improving the model. 

As the model is presently programmed, the water level may not move 

below the elevation z{k - 1}. This restriction is imposed in order 

max 

that in shallow water areas, at least one general interior grid point 
will remain submerged in water. While there are no programmed restric- 
tions on how high the water level may rise, the solution would be 
suspect if the level moved above (2)(Az). 
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the positive z-direction, then in the positive y-direction and finally 
in the positive x-direction. 

2. On the second sweep of the flow field, values of w are calcu- 
lated with a spatial integration of Eqn. (3.20) using the new horizontal 
velocity components. The sweep of the flow field on this step must 
proceed in the positive z-direction first in order that the zero verti- 
cal velocity boundary condition may be applied at the bay bottom. The 
sweep then proceeds arbitrarily first in the positive y-direction and 
then the positive x-:direction . 

3. In addition to the spatial integration of step 2, on the 
second sweep values of h are computed with Eqns. (3,28) and (3.29,). 

4. On the third sweep of the flow field, values of p' are calcu- 
lated using the new salinities and water levels. In contrast to step 2, 
the sweep must proceed in the negative z-direction first so that the 
zero atmospheric gage pressure can be satisfied at the free surface. 

5. Values of u, v, S and h associated with flow surfaces that are 
forced functions of time are calculated. 

6. Instantaneous and net volumetric flows through flow surfaces 
and accumulations within the bay are computed with the appropriate 
surface, volume and time integrations. 

This sequence is repeated as many times as are required to com- 
plete the simulation. The combination of the above calculation sequence 
and the finite difference equations of Table 3.2 yields an explicit 
method that requires the retention of arrays of u, v, S and h at two 
consecutive time levels and arrays of w, p, — and at one 

OL dll ot dt 

time level. The retention of p is not required because the density and 
its reciprocal are calculated from Eqn. (3.19) as needed. 
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Numerical Viscosity, Stability, Convergence and Accuracy 

According to Roache (1976), implicit numerical or artificial 
viscosity is a particular kind of truncation error produced by seme 
finite difference' approximations to the convective terms in conservation 
equations* Furthermore, explicit numerical Viscosity can be generated 
by adding to the finite difference equation the product of a non- 
physical coefficient times a difference approximation to the second- 
order spatial derivative of the conserved quantity. Explicit numerical 
viscosity is frequently employed to achieve stability. Both implicit 
and explicit numerical viscosity are present in the system of finite 
difference equations used in the present work and are considered below. 

An analysis for the implicit numerical viscosity in a finite 
difference equation is possible only if the equation is linear with 
constant coefficients. In addition the analysis becomes prohibitively* 
complex if coupled systems of difference equations are considered i 
Within these limitations the most physically meaningful equation left 
subject to analysis is the convection-diffusion equation 

. -V |2 + t, (3.47) 

3t 3x 

or a multidimensional variation therefore,' where Q is a conserved 
quantity, V is a constant convective velocity, and a is viscosity or 
diffusion coefficient. Assuming ' that V is positive .and applying the 
modified forward difference operator for the time derivative, the wind- 
ward difference operator for the convecti've term and the centered 
difference operator for the diffusion term as described earlier in this 
chapter, one obtains 
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-^n i} = -V + Q{n.i+l}-2Q{n,l}+Q{n,i-l} 

3t ’ Ax 2 

(Ax) 

Q{n,i+1> = Q{n,i}+(0.5)(At)[|^n,i} + ||{n-l,i}] . (3.48) 

By expanding the discretized variables of Eqn. (3.48) in terms of a 

double Taylor series expansion in Ax and At about the grid point (n, i) 

and collecting like terms, one obtains 

2 

|^n,i} = -V -^^n,i} + H.O.D. (3.49) 

8x 

„hera 

n 2 (Ax) 

H,0,D. = higher order derivatives • 

If the indices (i^n) are dropped and the higher order derivatives 
neglected on the assumption they are small compared to the retained 
terms, one recovers the original convection-diffusion equation plus an 
extra term that resembles a viscosity term if the conserved quantity 
is momentum or a diffusion term if the quantity is a chemical species. 
This numerical viscosity has nothing to do with the physical system 
and is an error that originates in the discretization process. Further- 
more, there is a good probability that the results of the above 
analysis can not be extended to the system of equations used in the 
present problem because interactions that provide other sources for 
truncation error exist between the various equations. In light of the 
circumstance, any estimate of the implicit numerical viscosity in the 
Mobile Bay model based on Eqn. (3.49) would be of dubious value. 

Possibly, with more work a rigorous analysis of the model for implicit 
numerical viscosity can be obtained in the future. 

The explicit numerical viscosity present in the finite difference 
equations for the model appears in the water level* equation, Eqn. (3.28), 
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o c 

in the form y (A + A This term, which ostensibly 

XX yy 

cancels negative implicit numerical viscosity, is required in order to 
obtain stable solutions* The same effect can be obtained by^ averaging 
water level values at (i,j) and the four surrounding grid columns, in 
some fashion, but the explicit numerical viscosity form is simpler to 
manipulate* Since y is nonphysical, selection of the correct value to 
use in calculations represents a problem. Nichols and Hirt (1973) 
suggest that 

Y ^ max (u^, v^)' , (3.50) 

is necessary for stability,* Preliminary experiments by this author 
indicated that a y value based on Eqn. (3*50) was inadequate. Subse- 
quent experimentation revealed that 

Y > ^[Hg + max(u^,v^)] . (3.51) 

where is the wave celerity, is' required for stability in the pres- 

2 2 2 -2 

ent model. For the At = 60. s, H = 5. m and max (v ,v ) =’ 1.3 m s 

2-1 2-1 

Eqn. (3.51) gives a minimum y of 1500. ms ; a value of 2400 la s was 
actually used in the computations. The reason for the difference in 
the restriction on y may stem from the fact that Nichols and Hirt used 
a marker -and-cell technique in which vertical velocities are calculated 
from the z-directed momentxmi equation while in the present model 
vertical velocities are calculated indirectly from the horizontal 
momentiM equations through the volume conservation equation. 

A numerical method for solving partial differential equations is 
said to be stable if errors, either from round-off generated when 
working with numbers of finite length or from inaccuracies in the 
initial conditions, remain bounded as the calculation proceeds. Most 
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explicit methods for solving partial differential equations are condi- 
tionally stable in the sense that there are restrictions on the magni- 
tudes of certain parameters in the finite difference model. The 
condition on y Eqn. (3.51) is one such restriction. To date, most 
analyses of finite difference methods for stability conditions have 
been limited to problems where the equations are linear or to linearized 
versions of nonlinear equations. The reader is referred to Roache 
(1976) for a discussion of various methods of analyzing for stability 
and to Schumann (1975) for an analysis of linearized conservation 
equations. Because of the complexity of the system of coupled nonlinear 
equations in the present problem such analyses have not been fruitful. 
Instead, stability conditions have been determined by extmding the 
results of analysis for limiting cases and testing the validity of 
these proposed stability conditions by numerical experiment. In addition 
to the condition given in Eqn. (3.51), two other restrictions appear 
to apply to the numerical method used here. One is the CFL criterion 

At < (3,52) 

ysi" 

which originates in the theory of characteristics for small amplitude 
surface waves on inviscid flows. .See Stoker (1957) for a treatise on 
the mathematics of this theory. For the grid system' used in the Mobile 
Bay model 


At < 


1,7x10 m 


= 240. s 


/('5.m) (9.8ms ) 

Another restriction applicable to the present problem, is the stability 
condition related to diffusion of momentum given by 


(Az)^ 

2N 


At < 


(3.53) 
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where N is the maximum eddy viscosity for turbulent diffusion of 
momentum in the vertical direction. An analogous condition related the 
diffusion of salt is 


At < 



(3.54) 


where is the eddy diffusivity. 

This stability condition may be derived from a stability analysis 

of the finite difference formulation of the simple diffusion equation. 

The values of Az and maximum N used in the present work are 0.625 m and 
2 -1 

0.0030 m s which give 

At < (0 . -625m)^ ^ ^3 33^ 

2(0.0030m s ) 

The stability condition related to diffusion gives the most restrictive 
time step for the Mobile Bay model with the present grid configuration. - 
The time step actually employed in the calculations was 60, s. 

A concept closely related to stability is convergence. . A numeri- 
cal scheme for solving partial differential equations is' said to be 
convergent if the solution of the finite difference equations approaches 
the solution of the governing differential equations as the grid system' 
is successively refined. The convergence of the numerical method used 
here with some slight variations in the windward difference operator 
and the technique for introducing explicit numerical viscosity into 
the water level equation has been demonstrated by Waldrop (Farmer, 

1976). In the cited work, the same problem was run twice, once on a 
coarse grid' and again on a refined grid, and the solutions compared. 

The two solutions agreed sufficiently well to imply convergence. 
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Ideally, the accuracy of a finite difference method is assessed 
by comparing the numerical solution with an analytical solution to the 
partial differential equations under consideration. The difficulty is 
that no analytical solutions exist to the equations under consideration. 
Therefore, it must be assumed that the applied equations developed in 
the preceding chapter adequately model the phenomena of interest and 
that experimental data can be used in lieu of analytical results. How- 
ever, one must realize that the errors inherent in field observations 
may be as large or larger than those in the finite difference solutions. 
The next chapter is primarily devoted to comparing the model results 
with field observations to ascertain the accuracy of the model. 

G . smmRY 

This chapter is devoted to- discussing the numerical method uti- 
lized in solving the partial differential equations and auxilary - . 
conditions that govern the phenomena of interest. After the applied 
equations are transformed to a nondimens ional form, finite difference 
approximations are introduced in order that the equations can be 
solved on a digital computer* The particular difference utilized 
lead to an explicit calculation procedure that exhibits superior 
properties with respect to the smoothness of the solutions (i.e* 
o'scillations are eliminated) and that takes little additional com- 
puter core over the minimum required for obtaining a solution. The 
method is subject to the CFL criterion and a stability limitation 
associated with diffusion; the latter is the most restrictive in the 
present problem. Next, the implementation of difference approxima- 
tions .for boundary conditions is considered in detail. The correct 
specification of boundary conditions requires much physical insight 
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and is critical to the success of the model. Presently simple, but 
adequate difference approximations to the boundary conditions are 
used, particularly at the free surface. The initial conditions neces- 
sary to implement the numerical method are not discussed in the pre- 
sent chapter but are elaborated on in the next’ chapter where their 
presentation is more natural. Finally, numerical viscosity, stabi- 
lity, convergence and accuracy of the numerical method are considered. 
A significant observation made from numerical experimentation is that 
an explicit numerical viscosity proportional to the square of the 
wave celerity, as opposed to the square of the maximum horizontal 
velocity component, is required for stability. 





CHAPTER 4 


RESULTS 

Upon, establishing that the hydrodynamics approach being exactly 
periodic within two tide cycles, this chapter presents the computer 
model results for three test cases. One of these cases is compared with 
protot 3 T>e data for approximately the same boundary conditions. Then 
the controlling parameters for Mobile Bay as an estuarine system are 
identified and discussed. Finally, a purview of the results in the 
context of the objectives of this work is given. 

A. APPROACH TO EXACT PERIODICITY 

In reality, no two tide cycles for an estuary are identical pri- 
marily because the conditions at its boundaries are never constant or 
exactly periodic long enough for the system to achieve exact periodi- 
city. These boundary conditions include river flows and their sediment 
loadings, tidal height, flow rate and salinity variations, and wind 
patterns and durations. Ideally, one would have sufficient prototype 
data to (1) input the histories of the boundary conditions to the com- 
puter model for as many tide cycles as are of interest, (2) . accurately 
specify the initial conditions within the system and (3) verify the 
simulation results at later times. Practically, one seldom has the 
resources needed to collect for more than one or two diurnal tide 
cycles the detailed data required to specify the boundary condition 
histories and never to completely fix the conditions throughout the 
system at one instant in time. Still, if the boundary conditions are 
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nearly steady or periodic for several tide cycles, there is reason to 
believe that the flow patterns for the system repeat themselves after 
one or two cycles at the imposed conditions, assuming that the flow 
field within the estuary is not atypical initially* The hydrodynamics 
cannot be exactly periodic, however, because they are coupled with the 
salinity distribution. The latter does not respond as rapidly as the 
hydrodynamics to changes in the boundary conditions, particularly the 
river flows. 

Support for the above conjectures on the response times of the 
flow and salinity patterns is derived from the computer model in the 
following way. Variables n^ed UBAR, VBAK and SBAR are calculated for 
each time step by evaluating the change in the* square of u, v and S,, 
respectively, at each mesh point over the time step, summing these 
changes over all mesh points internal to the flow field, and then 
dividing by the product of the total number -of points used and the size 
of the time step. If plots of UBAR, VBAR and SBAR versus time, 
referred to here as signatures, are identical for consecutive tide 
cycles, conditions within the system should vary with exact periodicity. 
The verb "should” is used .because there is a possibility that u, v 
and/or S are undergoing redistribution from one tide cycle to the next 
in such a way that the corresponding signatures remain exactly periodic, 
but this situation is considered unlikely. 

Signatures for U and S are given in Figi 4*1 ten tide cycles. 
The three combinations of boundary conditions examined and their dura^ 
tions are listed in Table 4.1. Note that sediment transport is not 
considered here. Also note that Case 4 is a repetition of Case 2; it 
was conducted to verify that the model results are reproducible ,when 



Case 1 Case 2 




Figure 4.1 - Approach to Steady-State 

H* 
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TABLE 4 .1 
Test Cases 


Case 

Tide 

Cycles 

Average River 
Flow s”^ 

Wind 

Applied 

1 

1- 4 

5780 

No 

2 

5- 6 

2980 

No 

3 

! 

00 

2980 

Yes 

4 

9-10 

2980 

No 
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starting from slightly different initial conditions. With the excep- 
tion of Case 1, the initial conditions for each case are the flow field 
properties from the preceding case. For Case 1 a grossly approximate 
salinity distribution that placed mostly fresh water at the north end 
of the bay and saltwater at the south end and a zero velocity field are 
the initial conditions. The boundary conditions were changed in a step- 
like manner between cases. 

Fig. 4.1 reveals that for Case 1 the u signature almost repeated 
itself after the second cycle and did so exactly after the third. The 
S signature in Case 1 is qualitatively the same for cycles 3 and 4, but 
a slight increase in the minimum occurred in the latter. This prolonged 
change in the S signature is to be expected since the initial saltwater 
content of the bay was high for the average river discharge used in 
Case 1. Since the flow patterns repeated themselves beginning with the 
third cycle when starting from rough guesses at the initial conditions, 
they should be identical in the second and third cycles when more real- 
istic initial conditions ^re supplied. Thus, the second tide cycle for 
a given set of boundary conditions and accurate initial conditions are 
accepted as being exactly periodic, at least with respect to the flow 
patterns. The salinity distributions may require several more cycles 
to reach this condition, but a two-cycle simulation provides an 
economic compromise between computer time and information about their 
final state. 

B. COMPARISON OF COMPUTER MODEL AND PROTOTYPE DATA 

Computer model results for Case 2 and prototype data taken from 
the 15-16 May 1972 field survey are compared for the stations and types 
of data indicated in Fig. 4.2. The types of data include velocity 
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components, salinities, tide curves and discharge rates. The compari- 

sons are made primarily by plotting for each station the indicated 

data from both sources versus time. Unless it is noted otherwise, the 

prototype data are adapted from Lawing and others (1975). Of the three 

model cases. Case 2 most closely approximates the prototype data with 

respect to imposed boundary conditions. However, there are significant 

differences between the two. One is that the model combined river 

3 -1 

average discharge is 2980. m s while the corresponding prototype 

3 -1 

discharge is 1798. m s . This discrepancy is a consequence of the 
fact that the river velocities are specified functions of tim“e while 
the flow cross-sections and discharges are predicted by the model; 
Another is that an unsteady and unmeasured wind from the southwest over 
the southeim portion of the bay influenced the prototype data, whereas 
there is no wind in Case 2. Finally, there are slight, but possibly 
significant differences between the prototype and model“tidal inlet 
tide curves. These differences in the tide curves are, described below. 

North-south components of the free surface velocities and the 
salinities at Beacons 12 and 32 are compared in Figs. 4*3 through 4«6. 
The sign of the velocity component is positive if it points in the same 
direction as the positive x-axis; the sign is negative otherwise. The 
model and prototype velocity curves for Beacon 12 are much the same 
although a stronger flood flow in the model resulted in a maximum flood 
velocity of —0.7 m s ^ compared to —0.5 ms for the prototype. There 
are 2.5 to 3-0 hr differences in the times of the maximum ebb and flood 
velocities for the two curves. The free surface salinity comparison at 
Beacon 12 is not as positive as that for the velocity component. A 
strong variation in salinity from 30. TPT at high tide to 8. PPT just 
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after the model low tide at Main Pass occurred in the model, whereas 
the prototype variation is a much milder 13. to 7. PPT. The disparity 
between the model and prototype salinity curve is probably attributable 
to a strong but short flood tide in the model. For Beacon 32 the model 
predicted that the current would ebb over much of the tide cycle and 
flood with velocities up to -0.4 m s The salinity variation is 
small in both model and prototype with the latter salinity being 
approximately 4. PPT greater than the 1. PPT in the former. The 
model's strong flood tide caused the velocity reversal, but the failure 
of the prototype to reverse at the surface is un^pected considering 
the magnitude of the river flows and the tide conditions. 

In addition to the free surface prototype data at Beacons 12 and 
32 presented’ above, velocity magnitudes and salinities have been col- 
lected near the channel bottom (i. e., at 0.2 times the channel depth 
from the bottom) . Directions have- been assigned to th e pro tot)rpe 
velocity magnitudes by the Army Corps of Engineers on the basis of 
physical model results (McClelland, 1975) . These data are compared in 
Tables 4.2 and 4.3. The velocity data .at both stations agree with 
respect to direction and are of the same order of magnitude. From 
Table 4.2 one would conclude that near the- bottom of the channel at 
Beacon 12 the flow is directed up the channel as the tide rises and 
passes through its high point and is directed down the channel as the 
tide falls and passes through its low point. Table 4.3 shows that at 
Beacon 32, the bottom flow is directed up the channel at all but low 
tide. The salinity data at both stations agree well over most of the 
tide cycle, with most of the disagreement pccuring at low tide in both 
cases. 
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TABLE 4.2 

Beacon 12 Bottom Data 


Elapsed 

Tide 

Time 

hr 

Stage 

131.25 

falling 

137.50 

low 

143,75 

rising 

150.00 

high 


Elapsed 

Tide 

lime 

hr 

Stage 

131.25 

falling 

137.50 

low 

143.75 

rising 

150.00 

high 


Velocities 


Prototype 
m s~^ 

Model 
m s“l 

0.3 

0.2 

0.3 

0.5 

-0.5 

-0.9 

-0.5 

-0.2 

TABLE 

4.3 


Beacon 32 Bottom Data 


Velocities 


Prototype 

m 

Model 
m s“^ 

-0.2- 

-0.1 

0.1 

0.4 

-0.4 

-0.4 

- 0 . 5 ' 

-0.5 


Salinities 


Prototype 

PPT 

Model 

PPT 

32.0 

27.0 

31.0 

24.0 

28.0 

27.0 

31.0 

30.0 


Salinities 


Prototype 

PPT 

Model 

PPT 

30.0 

27.0 

29.0 

21.0 

29.0 

27.0 

26.0 

27.0 
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The tide stage comparisons are presented in Figs. 4.7 through 
4.11. The first two plots of this set contrast the tide stage func- 
tions supplied to the model for Main Pass and Pass Aux Herons with 
prototype curves. The model tide curves at the two tidal inlets agree- 
with the prototype tide curves with respect to the time of high tide, 
hut differ slightly as to the time of low tide. Low tide occurred 
approximately 0,75 hr earlier than the siii 5 >le trigonometric fmction 
used in the model permits at Main Pass and 1.5 hr earlier at Pass Aux 
Herons. At hoth stations the model tide curves are about 10. cm 
higher than the prototype curves at high tide and 2. cm lower at low 
tide. The differences between the model and prototype curves are 
attributed to the following facts. The constants in the model tide 
stage functions were determined by least square fits to actual tide 
gage data that are not exactly periodic. The prototype curves, which 
were adapted from the Army Corps of Engineers report by Lawing and 
others (1975), were made exactly periodic by the Corps for a physical 
model study by adjusting the actual tide gage data. The two Separate 
analyses of the original data resulted in the differences noted above. 

Comparisons of the tide stage predictions for Fowl River Point, 
Point Clear and State Docks are presented in Figs. 4.9, 4.10 and 4.11, 
respectively. At all three stations, the model tracked the prototype 
data closely through falling tide and toughly predicted the coffect 
times for low tide. However, it allowed a too rapid Increase during 
the rising tide and overshot to produce high tides that are 25. to 30. 
cm too high and 2,5 to 3.0 hr premature. In Table 4.4 the differences 
in the tide elevation from State Docks to Main Pass at four points in 
the tide cycle are given. During falling and rising mean tide the 
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Figure-. 4^7 - Comparison of Idealized, Forced Model 


Tide at tiain Pass with Prototype Tide 
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Tide at Pass Aux Herons with Prototype 


Tide 
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Figure 4.11 - Verification of Tides at State Docks 
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TABLE 4.4 

Longitudinal Surface Differentials 


Elapsed 

Time 

hr 

Tide 

Stage 

131.25 

falling 

137,50 

low 

143,75 

rising 

150.00 

high 


Differential 


Prototype 

Model 

cm 

cm 

-27.5 

-27.0 

-10.0 

-24.0 

26.0 

24.0 

2.5 

-21.0 
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agreement between model and prototype is good but at high and low 
tide it is poor. These amplitude and timing errors in the tide curves 
are the most telling deficiencies of the model as it presently stands 
since of the prototype data available, the tide curves are the data 
least subject to error. On the other hand, there is the possibility 
these discrepancies can be reduced by supplying the model with more 
accurate tide curves for Main Pass and Pass Aux Herons or by adjusting 
parameters such as the eddy viscosity. Further computations will be 
required to test these conjectures. But even with the tide stage 
errors, the goal of computing acceptable three-dimensional velocity 
and salinity distributions was achieved. 

The instantaneous volumetric flow rates through Main Pass ana Pass 
Aux Herons are compared in Figs. 4.12 and 4.13. The prototype curves 
are taken from Hill and April (1974). For Main Pass, the model pre- 
dicted that ebbing commences at high tide; the prototype data indicate 
that ebbing does not start until 3.5 hr after high tide. Both the 
model and prototype data show that ebbing continues after low tide, for 
3.25 hr. in the former and 4.5 hr in the latter based on the times of 

the low tides in the corresponding data. The peak model flooding rate 

3-1 3-1 

of 44,000 ms is nominally 70% greater than the 26,000 m s for 

the prototype; the peak model and prototype ebbing rates are more 

3 -1 

nearly the same at 30,000 and 27,000 ms, respectively. For Pass 
Aux Herons, the model flow rate is a fixed at 20% of the rate through 
Main Pass with the same sign regarding ebb and flood and with no time 
lag to compensate for differences in times of flow reversals. The 
value of 20% was based on a consideration of estimates regarding the 
distribution of flows through the tidal inlets (MePhearson, 1970 and 



110 




1 - 


Elapsed Time, Hr 


Figure 4-13 — Verification of Voltanetrlc Rates at Pass Aux Herons 
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Doyle, 1975) . This relationship was utilized only after many futile 
attempts were made at Independently modeling the Pass Aux Herons flow 
rates. Hill and April (1974) encountered the same problem in their 
development of a vertically- integrated, 2-dimensional model of Mobile 
Bay. The primary difficulty stems from the fact that the flow direc- 
tion is strongly dependent on the difference in the surface elevation 
in the Mississippi Sound and just inside Mobile Bay. Any error in the 
prediction of the free surface elevation inside the bay can result in 
unrealistic flows through the Pass Aux Herons. Because the relation- 
ship between tidai flows is fixed in the model, the model ebb flow 
through Pass Aux Herons started at the same Instant it did at the Main 
Pass (i.e. , high tide at Main Pass), some 1.5 hr. before the prototype 
high tide at Pass Aux Herons. In the prototype, ebb flow started 2.75 
hr. after high tide at Pass Aux Herons resulting in a total timing 
error of 4.25 hr. The fixed relationship also resulted in the model 
ebb flow continuing 1.25 hr. past the model low tide while the proto- 
type data indicate ebbing continued for 4.75 hr. after the prototype 
low tide at Pass Aux Herons, The prototype data Indicate that a one ■ 
hour lag exists between the reversal of the tidal flow direction at 
Main Pass and Pass Aux Herons. Incorporation of this time lag in the 
computer model would reduce the above differences in the times of the 
flow reverals. 

The results of integrating the instantaneous volimetric flow rate 
curves between flow reversals are given in Table 4.15. Because the 
model flood flow rates are larger and the flood durations are shorter 
than the corresponding prototype quantities, the average flood flow 
rate for the model is B6% greater than the prototype average at Main 



TABLE 4.5 


Tidal Discharges 


' Tidal 
Inlet 

Net 
Ebb • 
Flow 
10“S, m3 

Ebb 

Duration 

hr 

Average 

Ebb 

Flow 

10“^, m3 s“^ 

Net 
Flood 
Flow 
10"3, m3 

Flood 
Duration 
’ hr 

Average 
Flood 
Flow 
10“3, m3 




Model 




Main Pass 

-11.5 

15.6 

-20.5 

9.4 

9.4 

27.8 

Pass Aux, Herons 

- 2.3 

15.6 

- -4.1 

1.9 

9.4 

5.6 




Prototype 




Main Pass 

- 9.0 

13.2 

-19.0 

. 7.1 

11.8 

16.7' 

Pass Aux Herons 

- 1.3 

13.1 

- 2.8 

1.3 

11.9 

3.0 
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Pass and 87% greater for Pass Aux Herons. The average ebb flow rates 
for the model and prototype are somewhat closer in magnitudes 

From the previous two paragraphs, the reader is certain to have 
the impression that the results of the tidal flow comparisons are nega- 
tive. This impression should be mollified by the realization that the 
specification of model boundary conditions at tidal inlets is an exceed- 
ingly difficult task that requires much physical insight into -the 
problem if it is to be done correctly. See Leendertse and Liu (1975) 
for an informative discussion of 'specifying tidal boundary conditions. 
Two difficulties center on fixing the free surface along a flow boundary 
as a function of position and time and on specifying velocity gradients 
in coordinate directions parallel and perpendicular to the open flow 
boundary. Seldom is this kind of data obtained in field surveys. A 
third difficulty concerns the salinity of the return flow to the estu- 
ary, particularly just after slack water. The composition of the 
returning water is strongly dependent on circulation patterns outside 
the hay. Beyond these considerations, there exists the possibility 
that some agent such as a local wind has influenced the prototype tidal 
data and the agent is not properly acccounted for in the model. 

J 

C. DISCUSSION OF COMPUTER MODEL TEST CASES 

The results of a computer model of a multidimensional problem may 
be displayed graphically in two ways: (1) over the spatial extent at 

selected instants in time or (2) versus time at selected points in 
space. When the problem is three dimensional in space, the first type 
of display is generally limited to given cross-sections of the volume. 
The first approach is used extensively in this work. Because of their 
large number, these plots are located in Appendix A; they are discussed 
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below. The second approach is also used, and these plots are inter- 
spersed with their description in this section. 

Appendix A contains plots for the four cases described in Table 
4.5. The first three cases are presented with block borders that repre- 
sent the limits of the computational grid used; the fourth case is 
presented with borders that represent the physical boundaries of Mobile 
Bay. Cases 1 through 3 contain the following type plots: (1) velocity 

vectors and normalized salinities (i.e., normalized density anomalies 
that have been multiplied by a factor 'of ten to facilitate plotting) in 
horizontal cross-sections at 0., 1.25 and 2.5 m below mean sea level 
(IffiL), (2) free surface profiles, (3) velocity vectors and salinities 
in vertical cross-sections in planes perpendicular to the y-axis along 
the ship channel and 1.7 km to the west of the channel. These plots 
are given for the following four points in the tide stage at Main Pass: 
(1) falling mean tide, (2) low tide, (3) rising mean tide, and (4) high 
tide. Case 4 contains horizontal displays of velocity vectors and 
salinities at mean sea level and the free surface profiles at approxi- 
mately 2. -hr intervals. The following table should help the reader 
visualize how Appendix A is arranged, and thus facilitate locating the 
figures as they are discussed. For Cases 1 through 3, the first five 
plots under velocity vectors and salinities are for falling mean tide, 
the next five for low tide, and so onj Under surface profiles for the 
first three cases the first plot is for falling mean tide, the next for 
low tide, and so on. As stated, above. Case 4 contains plots at approxi- 
mately 2. -hr intervals and only one horizontal plot of each kind for 
each interval. Since Case 4 is essentially a duplicate of Case 2, the 
discussion devoted to it will be m in i m al. 
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Case 

1 

2 

3 

4 


TABLE 4.6 

Organization of Figures in Appendix A 


Velocity 

Vectors 

A.l -A. 20 

A. 45 -A. 64 

A. 89 -A. 108 

A.133-A. 144 


Salinity 

Profiles 

A. 21 -A. 40 

A. 65 -A. 84 

A.109-A.128 

A.145-A.156 


Surface 

Profiles 

A. 41 -A. 44 

A. 85 -A. 88 

A.129-A, 132 

A.157-A. 168 
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On all of the plots in Appendix A, there is a figure labeled "Gulf 

Tide Stage" that indicates the current tide condition at the Main Pass. 

The arrowhead pointing toward the scale gives the tide elevation and 

the other arrowhead indicates whether the tide is rising or falling. 

On each figure there is an appropriate scale or reference to show the 

magnitude of the quantity plotted . Also note that the vertical scale 

in the north-south cross-section plots has been expanded by a factor 

of 2400 to make phenomena in those sections visible. 

From the velocity vectors for falling mean tide, one can see that 

the rivers discharge into the bay at a few centimeters per second and 

that the tidal flows are out of the bay into the Gulf with an average 

-1 -1 

velocity of 0.8 m s in Cases 1 and 2 and 0.6 m s in Case 3. There 

is a slight flow into Bon Secour Bay from the north and a 0.3 m s ^ 

current out of this area to the west. In the ship channel the flow is 

-1 

directed to the south at 0.1-0. 3 m s near the free surface and to the 
north in the same velocity range near the bottom except at the State 
Docks and in the southern most 10. km where the flows are directed to 
the south with velocities up to 0.7 m s The general movement in the 

bay is to the south with the pattern much the same for the two river 
discharges and with or without wind. Note that the wind pattern in 
Case 3 is indicated by the boldfaced vectors in Figure A. 89. The wind 
speed varies from 6.1 m s ^ in the south to 4.7 m s ^ in the north. 

At low tide the velocity vectors indicate that the rivers dis- 
charge into the bay at 0.3-0. 5 m s ^ and that the tidal inlet flows ebb 
at 0.9 m s ^ in the first two cases and at 0.5 m s ^ in the third case. 
The current pattern in Bon Secour Bay is much the same as it is at 
falling mean tide except in Case 3 where the wind causes the main flow 
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to bypass the Bon Secour area and has set the shallow waters there in 
motion to the north against a slightly adverse surface gradient. From 
top to bottom along the entire length of the ship channel, the flow is 
ebbing with a maximum velocity of 0.8 m s ^ in Cases 1 and 3; the cur- 
rent is somev7hat weaker for the lower river discharge of Case 2. As 
at falling mean tide, the general movement in the bay is to the south 
with the exception that the wind has resulted in a westerly movement in 
the southern third of the bay in Case 3. 

As the tide rises past its mean position, the river discharges are 
in the 0.1-0. 4 m s ^ range and are diminishing. There is a strong 
flood flow at the tidal inlets with the average of 1.0 m s ^ in Case 2 
exceeding the 0.8 m s ^ in Case 1 with its higher river discharge rate. 
The average flood velocity in Case 3, 0.8 m s is weaker than in Case 
2 because the wind results in storage of tidal waters which in turn 
reduces the favorable gradients in the free surface. In all the cases, 
there is a strong current into the Bon Secour area from Main Pass. In 
the ship channel, the flow floods in the south at 1.0-1. 2 m s ^ and 
ebbs in the north. The ebb flow is stronger for Case 1 than Case 2 due 
to the difference in the river discharge rates and strongest in Case 3 
because of the favorable surface gradient caused by the storage effect. 
The general movement in the bay is to the north except at the river 
mouths and along the southern edge of the bay where the movement is to 
the east. Currents along the western edge of" the bay are enhanced by 
the wind. 

At high tide the rivers are essentially stagnant in all cases. 

The tidal flow at Main Pass is weak and mixed with regard to direction 
except in Case 3 where the wind results in an average flood velocity of 
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0-2 m s The large velocity vector just outsiae the Pass Aux Herons 
is directed toward this pass in the first three cases because the 
imposed tide stage boundary condition in the pass is approximately 10, 
cm lower than the free surface at the location of the vector. The 
actual flow through Pass Aux Herons is 20% of that through Main Pass 
with the same direction with regard to ebbing and flooding. Therefore, 
the direction and magnitude of these currents are suspect in the first 
three cases. In Case 4, the free surface gradient in the Pass Aiix 
Herons was set equal to zero (i.e., the surface height in the pass was 
equated to that at the first grid column inside the bay) and a more 
reasonable velocity pattern resulted. At high tide an unexpected 
vortex pattern rotating in a clockwise direction and having- velocities 
up to 0.4 m s ^ appears in the Bon Secour area. At present, there are 
insufficient protot}^e data to verify the existence of such a flow pat- 
tern. The flow is predominately to the north in the ship channel with 
a maximum velocity of 0,7 m s ^ near the center. The channel current 
is beginning to reverse and ebb at Main Pass. The strength of the cur- 
rent at the north end of the channel is reduced in Case 1 because of 
the positive river discharge and in Case 3 because of adverse pressure 
gradients resulting from the storage effect. Except for the circula- 
tion pattern in the Bon Secour Bay, slack water exists in most of the 
bay with a slight southerly current of0.1to0.2ms^ along the 
western edge of the bay in all but Case 3. 

At this point it should he noted that the velocity distributions 
in the bay proper are relatively uniform with depth as can be seen in 
Figs. A. 9 5 A. 14, A. 19 and others. A small reduction in the velocity 
occurs near the bottom due to viscous effects. However, in the ship- 
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ping channel Intricate velocity distributions result that could not 
have been forecast by a vertically averaged model. One of the mile- 
stones of the present work is the successful interfacing of the three- 
dimensional model for the bay proper and the vertical, two-dimensional 
channel model. 

Now the normalized density anomaly or salinity distributions for 
the cases will be discussed. In these figures, the integer numbers 
should be interpreted as follows: 


Integer 

Nomalized 

Salinity 

Numbers 

Density 

Anomaly 

Range 

PPT 

0 

0.00-0.05 

0.0- 1.5 

1 

0.05-0.15 

1.5- 4.5 

2 

♦ 

0.15-0.25 

• 

4.5- 7.5 

• 

9 

• 

• 

0.S5-0.95 

25.5-2S.5 

10 

0.95-1.00 • 

28.5-3 0.0 


Since salinity is a concept familiar to most people working with estu- 
arine systems, the discussion will be in terms of that variable. 

On falling mean tide at Main Pass, the salinity in the northern 
third of the bay is less than 1.5 PPT. In Bon Secour Bay, the salinity 
ranges from 1.5 to 10.5 PPT in Cases 2 and 3. In Case 1, the hxgher 
salinity water along the southern edge of Bon Secour Bay is probably 
the remains of tlxe unrealistically high initial salinity distribution 
that has not yet been transported out of the region. The salinity in 
the Main Pass is not uniform and depends strongly on the prevailing 
conditions. The salinity near the surface in the eastern quarter of 
Main Pass is apparently convected there from the Bon Secour area. The 
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maximum surface salinity in Case 1 is 19.5 PPT, while in Case 2 it is 

22.5 PPT; the minimum is 4.5 PPT in both cases. The difference in 
the maxima results from the difference in river discharge rates and 
probably would be greater if Case 1 had reached exact periodicity 
with respect to the salinity distribution. The wind in Case 3 in- 
creases the maximum and minimum salinities in Main Pass to 28.5 and 

16.5 PPT, respectively. An analogous Increase in salinity exists at 
Pass Aux Herons in going from Cases 1 to 2 and from 2 to 3. If one 
uses 1.5 PPT to define an interface between low and high salinity 
water, this interface moves up the bay with decreasing river flow and 
with the application of wind from the south at equal river discharge 
rates. In particular, the wind pattern of Case 3 results in higher 
salinities along the western edge of the bay. Traveling south from 
the north end of the bay, one encounters this interface first in 
Case 3, second in Case 2 and third in Case 1. The ship channel is 
essentially full of 25.5 to 30.0 PPT Salinity water below its inter- 
face with the bay proper. A smooth decrease towards fresh water 
occurs in the salinity profile as this interface is approached from 
below in the northern third of the channel. The saltwater intrusion 
in the channel is diminished from Case 2 by the higher river discharge 
of Case 1 and even more by the storage effect caused by the wind in 
Case 3. 

At low tide the 1.5 PPT interface has moved down the bay while 
maintaining the same relative positions described in the previous para- 
graph for the first three cases. Now the northern half of the bay con- 
tains water with less than 1.5 PPT salinity. The salt content of the 
Bon Secour area as a whole has fallen slightly from that at falling 
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mean tide, but concentrations as high as 10.5 PPT are still present. 

The comment made above concerning the remains of the initial salinity 
distribution still applies to the extreme southeast corner of the bay 
in Case 1. The salinities in the tidal inlets are nominally 6.0 PPT 
lower than they were at falling mean tide in all cases, and the distri- 
bution across Main Pass is somewhat more uniform. The salt content of 
the northern third of the ship channel has decreased significantly over 
the quarter tide cycle with the change enlianced by the higher river 
discharge of Case 1 and the wind pattern of Case 3. The reduced salin- 
ity just below the bay-channel interface between 30. and 50. km is 
caused by a down flow of low salinity water from the bay proper during 
ebb tide. 

Ivhen the tide stage at Main Pass reaches the rising mean position, 
the 1.5 PPT interface is at about the same position that it had at low • 
time in Cases 1 and 2 and nominally 3. km further to the south in 
Case 3* The salinity distribution in the Bon Secour area did not 
change between low and rising mean tide. Since the currents in the 
tidal inlets are flooding strongly, the surface salinities there have 
increased and are approaching that of gulf water, 30.0 PPT. The fresh 
water content of the northern end of the ship channel has reached a 
maximum for the tide cycle with the saltwater wedge being 10. km 
further down the channel in Cases 1 and 3, respectively, than in Case 2. 
In all three cases the flooding flow at Main Pass is convecting gulf 
water into the channel. 

At high tide, the 1.5 PPT salinity interface attains its northern 
most position in the three cases while maintaining the same relative 
positions described before. High salinity water is being convected 
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from the middle of the bay into the northwest comer of the Bon Secour 
area and low salinity water is being convected out of the area through 
the southwest comer. Except for the relatively constant salinity of 
the shallow waters to the east, the salinity in Bon Secour Bay 
increases by as much as 18. to 21. PPT over the last quarter tide cycle. 
Main Pass and the adjacent area contain gulf water as a consequence of 
the strong flooding. Pass Aux Herons contains water with a salinity 
equal to or slightly less than the 21.0 PPT of the Mississippi Sound. 

The flooding currents of the previous quarter tide cycle have convected 
saltwater up the ship channel. In Cases 1 and 2 pure gulf water has 
intmded half the length of the channel and in Case 3, almost a third 
the length. In Case 2, with its lower river discharge, the saltwater 
wedge has .intruded to the channel's north end while the higher river 
discharge in Case 1 has retarded the intrusion significantly and the 
wind induced' storage effects of Case 3 have retarded it even more. 

For the particular set of river flows, tidal variation, and wind 
conditions investigated, the bay proper varies between being vertically 
homogeneous and slightly stratified. On the other hand, the ship chan- 
nel is highly stratified below the channel-bay interface over much of 
the channel's length. Furthermore, the salinity distribution in the 
bay may require several tide cycles to reach exact periodicity after a 
substantial shift in the boundary conditions. In Case 1, the salinity 
in Bon Secour Bay continued to decrease four cycles after starting from 
inordinately high initial salinity in the area. Also, in Case 4 along 
the western edge of the bay above Fowl River Point, traces of higher 
salinity water forced there by the wind still remained two cycles after 


the wind has ceased. 
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The surface profile plots indicate that at falling mean tide there 
is approximately a 15. cm decline in the free surface elevation from 
north to south over the length of the bay excluding local effects at 
the river mouths and the tidal inlets. The differential is roughly 
half that given in Table 4.5, pa. 113, for the prototype between State 
Docks and Main Pass at the same point in the tide cycle. The surface 
gradient in the lateral direction is essentially zero except in the 
Main Pass. A combination of flow geometry and Coriolis effect generate 
a 5. to 15. cm rise from east to west across the width of this inlet. 

It should be emphasized that this lateral gradient is predicted by the 
model and is not an imposed botindary condition. The tide stage bound- 
ary condition, which is level in the lateral direction, is applied at 
an "imaginary” row of grid points one grid increment further out in the 
Gulf. The surface elevation at the north end of the bay is 3. cm 
higher in Case 1 than it is in Case 2 because of the difference in the 
river discharges; the surface profiles for these t^- 7 o cases are identi-. 
cal otherwise. In Case 3, the wind induced storage raises the surface 
by about 10. cm from that in Cases 1 and 2 over most of the bay except 
> at the tidal inlets. At low tide, the surface of the entire bay has 
subsided 45. to 50. cm from its position at falling mean tide. The 
relative positions of the free surface are about the same between the 
three cases. Also, a very slight positive gradient from east to west 
exists as a result of the Coriolis effect. The wind pattern in Case 3 
accentuates the lateral surface gradient. At rising mean tide, a 5. to 
25. cm rise exists from north to south over the length of the bay. 

Cases 1 and 2 are nearly identical, while the free surface in Case 3 is 
about 20. cm higher at the north end of the bay and 5. cm higher at the 
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center than that in Case 2. No lateral gradients are discernible 
except at Main Pass. At Main Pass high tide, a 10. to 20. cm decline 
from north to south exists over the length of estuary with the free 
surface elevation being approximately the same in the three cases. A 
2.5 cm rise occurs in the prototype at this point in the tide cycle. 
Laterally the surface is level in the northern half of the bay, but a 
10. cm rise from west to east occurs in the Bon Secour area primarily 
because of the flow geometry. 

The tide level curves for the designated stations in Fig. 4.2 are 
presented in Figs. 4.14, 4.15 and 4.16 for Cases 1, 2, and 3, respec- 
tively. An anomalous result that is Immediately obvious in these plots 
is that the model high tide occurred at the State Docks as much as 0.75 
hr before it did at the Main Pass. Figs. 4.3 and 4.7 show that the pro- 
totype high tide at State Docks lagged that at Main Pass by 2.5 hr. 

The relationship between the times of lox^r tide at Main Pass and State 
Docks in the model are more nearly correct. Cases 1 and 2 are essen- 
tially identical; the primary difference is that the higher river flow 
in Case 1 has elevated the water levels at Point Clear, Fowl Eiver 
Point and State Docks as much as 10. cm over those in Case 2. The 
times of high and low tide at the different stations are the same in 
the two cases. It should be noted that the model tide curves for the 
State Docks are influenced by the variation in the discharge rate for 
the Mobile River. This influence is evident in Figs. 4.14 and 4.15 
where the increase in the river discharge during ebb tide retards the 
fall of the water level at State Docks. The tide curves in Case 3 
indicate that the wind pattern reduced the fall of the water level in 
the middle and upper regions of the bay. In particular, low tide at 
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Figure 4-14 - Tides for Case 1 
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Figure 4.15 - Tides for Case 2 
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Figure 4.16 - Tides for Case 3 
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State Bocks in Case 3 Is 14, cm higher than it is at the corresponding 
station in Case 2* The times of low tide are approximately the same in 
Cases 2 and 3, but the wind in the latter case, somewhat surprisingly, 
delayed the time of high tide in the middle and upper regions of the 
bay by as much as an hour* 

Figs* 4.17, 4*18 and 4*19 display the volumetric flow rates for 
the Main Pass, Pass Aux Herons and the combined rivers as functions of 
time. In addition, the rate of accumulation within the bay and an 
error calculated by summing the input rates and subtracting the accumu- 
lation rate are shown. The river velocities are specified functions of 

time in the model as described in Chapter 3. The average river velo- 
-1 -1 

city is 0.50 m s in Case 1 and 0.27 m s in Cases 2 through 4; the 
maximim variation is 0.52 m s in all cases. However, the combined 
river rate depends on the flow cross-section of the river mouths which 
in turn depend on the free surface locations, variables calculated by 
the model. The tidal inlet flow rates and accumulation rate are calcu- 
lated or predicted by the model. From Figs. 4.17 and 4.18, one can 

3 3 —1 

conclude that the 2.8 x 10 m s decrease in river flow rate from 
Case 1 to Case 2 is compensated for by a corresponding increase in the 
tidal flow rates so the acciamulation rate remains approximately the 

3 

same. A 1.5 hr increase in the duration of flood tide and a 9. x 10 
3 —1 

m s decrease in the maximum flood flow rate from Case 2 to Case 3, 
indicated by Figs'. 4.18 and 4.19, result because of wind induced stor- 
age in the bay. A point discernible in all three figures is that the 
error in the overall balance on the bay is the same order of magnitude 
as the Pass Aux Herons flov; rate at any time in the tide cycle. The 
primary source of error is considered to be in the accumulation rate 
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Figure 4.19 - Volumetric Rates for Case 3 
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term which depends directly on the rate of movement of the free surface. 
Any error in the calculated dynamics of the free surface, either from 
the finite difference scheme or the specification of boundary condi- 
tions, manifests itself as an error in the accumulation rate. In par- 
ticular, if the surface rises and falls too slowly, then the error is 
proportional in phase and magnitude to the tidal flow rates which are 
significantly larger than the combined river flow rates over most of 
the tide cycle. The fact that the magnitude of the error is nearly the 
same as that of the Pass Aux Herons flow rate is thought to be 
coincidental. 

D. IDENTIFICATION OF CONTROLLING PAEAMETERS 

The combined river flows have a significant influence on the com- 
position and dynamics of Mobile Bay, particularly its upper region. 

The greater the freshwater flow, the lower the salt content of the bay 
for a given tide variation. The smaller the flow, the stronger the 
tendency for velocity reversals to occur in the river mouths and for 
salt, water to intrude upstream. Conditions at the tidal inlets are com- 
plex and interactive. The flows through the Main Pass and the conse- 
quent free surface elevation and salinity distribution in the southern 
portion of the bay have a strong influence on what the flows and tide 
elevations in the Pass Aux Herons are like. The Pass Aux Herons flood 
current appears to deflect the Main Pass flow to the east during, flood 
tide. Additionally, the flow through Pass Aux Herons depends on the 
conditions in the Mississippi Sound which are not necessarily the same 
as those in the Gulf of Mexico. The primary effects of local wind 
appears to be a perturbation in the velocity pattern throughout the 
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tide cycle and a redistribution of the salt water. It should be noted 
that a sustained wind over a long fetch of the Gulf of Mexico has a 

significant influence on the tide stage in the bay inlets. A wind from 

the north will tend to lower the average tide height in the inlets and 

the saltwater content of the bay, while a wind from the south will 

raise the average tide height and saltwater content. This wind-tide 
interaction has a much stronger influence on the estuary than a local 
wind alone. 

As noted earlier, the accurate specification of the tidal inlet 
boundary conditions is critical to successful modeling of estuarine 
systems. This point is particularly applicable when the net flood and 
ebb tides are a significant fraction of the total volume of the system, 
say at low tide, as it is in Mobile Bay. Errors in these boundary con- 
ditions result in inaccurate simulations of the tidal flows and the 
attendant salinity distributions, if not instability in the calculation. 
Further study is required to determine the effect of the various 
approximations made in order to specify enough boundary conditions to 
solve the problem. For instance, the validity of setting 9u/9x and 
3v/9x equal to zero or holding the salinity at the gulf water value at 
the "imaginary" grid points in the Gulf needs closer scrutiny. The 
former approximation implies that the flow is uniform as it passes 
through the boundary; the attainment of this condition depends strongly 
on the local flow geometry and the currents in the adjacent gulf area. 
The latter approximation is reasonable if the ebb flow is infinitely 
diluted by gulf water by the time the discharge reaches the last set of 
grid points. This dilution process probably does not happen in reality. 
Certainly, an accurate representation of the bathjnnetry of the bay is 
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needed. Because zero-order approximations are used to fit the geometry 
in order to facilitate formulation of boundary conditions and a narrow 
but deep portion of the Main Pass is ignored so as to minimize the size 
of the grid required, the topography of the Main Pass is poorly approxi- 
mated at present, although the flow area is roughly correct. This dis- 
crepancy in geometry must have an influence on the tidal flows, 
probably in the direction of allowing the model tidal flows to be too 
large for a given tide stage variation. 

Among the controlling parameters, one of the least understood is 
the eddy transport coefficient. Its impact on the tidal dynamics and 
salinity distribution in three-dimensional, time-dependent estuarine 

flow is a subject begging for further research. For instance, in the 

2 -1 

development of the present model an eddy viscosity of 15, cm s with 

a dampening factor based on the gradient Kichardson number was used in 

the two-dimensional region of the ship channel. A recurring problem 

was the prolonged movement of an internal velocity wave up the channel 

toward the State Docks after the tide had begun to ebb at Main Pass. 

2 -1 

When the eddy viscosity was doubled to 30. cm s , the velocity wave 
movement diminished and reversed during ebb flow as one would expect. 

To accurately model the unsteady flow and salinity patterns in an 
estuary, one must experiment extensively with the eddy transport coef- 
ficient formulations. 

E. PURVIEW OF RESULTS 

The primary purpose of this research is to develop a working model 
of three-dimensional, time-dependent flows in estuarine systems, and 
this goal has been achieved. The computational procedure is stable as 
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evidenced by a calculation involving 15,000 time steps of 60. seconds 
and ten tide cycles. Starting from different initial conditions and 
computing to the same final state demonstrate that the results are 
reproducible. Time steps approaching the limits set by the CFL crite- 
rion and the diffusion stability limit can be taken. The model con- 
serves the total water volume relatively well. Furthermore, the model 
accounts for the interactions of the essentially two-dimensional ship 
channel Trith the three-dimensional bay, a non-trlvial task. 

This tool can be used to assess different formulations for eddy 
transport coefficients and different prescriptions of conditions at 
open boundaries such as the river mouths and tidal inlets. With a 
minimum of program modifications, the effects of changes in the bay 
geometry can be evaluated. Furthermore, since wind and tide conditions 
can be varied independently, the model can be used to investigate a 
variety of wind-tide conditions with ease. 

All the relevant phenomena with their associated parameters are 
incorporated in the model. It is sufficiently general in scope that it 
can be used to simulate any estuary considered to be isothermal. It is 
particularly applicable to those having velocity reversals with depth 
and saltwater intrusion. What is now needed is a study to improve the 
simulative capacity of the model by selecting more accurate values and 
representations of the controlling parameters. This study will require 
a coordinated effort by the modeler and those groups making field sur- 
veys to identify and measure the parameters critical to accurate simu- 
lations and to verify the expected and \inexpected results, both from 
the prototype and the model. 



CHAPTER 5 


CONCLUSIONS AND RECOMMENDATIONS 

The primary conclusion from this research is that the computer 
model is a viable means of studying three-dimensional, time-dependent 
estuarine flows. The nature of this viability is explained in the 
following comments: (1) Because of the three-dimensionality and time- 

dependency, use of the computer model with reasonable spatial reso- 
lution requires a significant amotint of CPU time and core storage. 

For instance, in the present work approximately 220 K bytes of core 
and either 36.2 min/25-hr. tide cycle on the IBM 370, Model 158 or 
54.8 min/25-hr. tide cycle on the IBM 360, Model 65 were required. 
Since the maximum stable time step, is related to the smallest hori- 
zontal grid increment through the CFL criterion and the vertical grid 
increment through the diffusional stability limitation both CPU time 
and core storage requirements escalate with increased spatial reso- 
lution. With the present model an acceptable compromise between 
resolution and computer resources can generally be fotmd. (2) Be- 
cause there is no truly typical set of conditions for a given estuary, 
a potential user should expect to have to investigate and adjust cer-. 
tain items that were not fully investigated herein. For instance, 
the eddy viscosity and diffusivity probably vary with prevailing wind 
conditions; this variation was not considered in this research. Also, 
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at low river flows the boundary conditions on the species coutinuity 
equation would have to be modified to account for saltwater Intrusion, 
a circumstance not handled by the model as it presently stands, 

(3) A potential user should have at his disposal computer plotting 
facilities. Graphical displays are essential to being able to in- 
terpret the large volumes of numbers generated when describing a 
general flow field. 

Further conclusions are as follows: (1) The model velocity and 

salinity patterns compare favorably with those obtained from field 
measurements. (2) Sustained local winds have a signigicant influence 
on the velocity and salinity distributions as in Case 3, (3) High 

river discharges are capable of displacing salt water from the bay 
as in Case 1. The second and third conclusions agree with field 
observations also. However, quantitative data sufficient to check 
the second conclusion do not exist. 

Recommendations for improving the computer model apply primarily 
to the numerical method. They are as follows: (i) The effect of the 

magnitude of the artificial or explicit mmerical viscosity in the 
water level finite difference equation should be analyzed more fully. 
This parameter should be large enough to insure stability but not 
so large as to generate unwanted "diffusional effects”. (2) At the 
expense of additional computations, the use of an explicit artificial 
viscosity in the water level finite difference equation can be elimi- 
nated by solving the equation with an alternating— direction-implicit 



139 


scheme. However, the programming becomes difficult when the geometry 
is complex o (3) The location of the water level is taken into account 
in the overall continuity equation (i.e# the water level equation) 
and the pressure terms of the momentum equations where it is essential. 
Improved solutions should result from modifying the finite difference 
formulations of the convective and diffusive terms of the momentum and 
species continuity equations when applied at grid points adjacent the 
free surface so that they also take into account the water level loca- 
tion. (4) "Semi-implicit^’ finite difference formulations of the 
second-order derivatives (i.e. the diffusion terms) in the momentum 
and species continuity equations that eliminate the diffusional sta- 
bility limitation have been proposed (Roache, 1975). Their use should 
be considered. (5) The numerical method utilized here is termed a 
one-step procedure because only one estimate of each dependent vari- 
able is made for a new time level. A one-step procedure was used 
because it is computationally fast and the available CPU time was 
limited. If computer resources are not a limiting factor and accu- 
racy of the solution is important, two-step procedures, where cor- 
rections to the first estimates at a new time level are made, should 
be investigated. 

The recommendation for improving the mathematical model per se 
is that a better representation of turbulence, for instance a turbu- 
lent kinetic energy or Reynold’s stress closure model, should be 
used instead of constant eddy transport coefficients modified by 
gradient Richardson number dependent dampening coefficients. It 
should also be noted that the particular set of boundary conditions 
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employed at the tidal inlets in the present work are not unique. For 
instance, if velocity profile data are available, these can be used as 
boundary conditions and the tide height variation with time predicted. 

Recommended extensions and applications of the computer model 
include the following: (1) The model can be used to assess the impact 

of islands formed as a consequence of dredging operations on circula- 
tion and salinity patterns, a topic of vital interest to the oyster 
industry in Mobile Bay. This application is obvious and would require 
no modifications to the computer code. It was not pursued in the 
present research due to a lack of computer resources. (2) The computer 
code with a sediment transport model incorporated in it would be of 
value in scheduling maintenance-type dredging operations in Mobile Bay. 
(3) As mentioned in Chapter 1, the computer model should be useful In 
Investigating the complex surface phenomena that cause the main ship 
channel to be strongly contrasted with the shallow waters on either 
side in visible spectrum photographs taken from satellites. 

An item that may be classified as both a conclusion and a recom- 
mendation is that future computer modeling efforts and field surveys 
should be coordinated. In this way attempts to measure parameters 
critical to accurate simulations will be made and expected and unex- 
pected results from the prototype and model can be verified. 
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NOMENCLATURE 


c empirical constant or conversion factor 

heat capacity at constant volume 

D diffusivity 

f Coriolis parameter 

g gravitational acceleration 

h instantaneous flow depth 

H length characteristic of flow depth 

i,j,k spatial indices 

I identity element 

k friction factor or constant 

k Von Karman's constant 

o 

K thermal conductivity 

£ Prandtl mixing length 

L length scale 

m empirical constant 

n normal distance to a surface or time index 

N kinematic viscosity 

p pressure 

P empirical constant 

q empirical constant or turbulent kinetic energy per unit mass 

of fluid 

thermal radiation flux 
r 

Q dumny variable 
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Ri gradient Richardson number 

s salinity 

S normalized density anomaly 

t time 

T temperature or period of a tide cycle 

u,v,w velocities or components of velocity vector 

u friction velocity 

U depth mean velocity 

V velocity scale 

x,y,z Cartesian coordinates 

X,Y stretched coordinates 

z^ size of a wall roughness element 

Greek 

a constant in state equation or a viscosity or diffusion 

coefficient 

3 density difference between gulf and fresh water or an 

en^irical constant 

V explicit artificial or numerical viscosity 

e dissipation rate of turbulent kinetic energy per unit mass 

of fluid 

e angle with respect to positive x axis in the horizontal plane 

tc thermal conductivity 

V kinematic viscosity 

p density 

T shear stress 

T 

o 


wall shear stress 



phase lag 

viscous dissipation function 
mass fraction 


147 




V 




maximum variation in co with distance or angular velocity 


Subscripts 

A chemical species A, in particular^ total salt 

avg tide cycle average 

B chemical species B, in particular, water 

(e) effective value 

f . fresh water value 

g gulf water value 

max maximum value 

(t) turbulence induced value 

varl,var2 first and second variations over tide cycle, respectively 
w wind 

0 Initial value or reference quantity 

1 botindary value 


divergence 

substantial derivative 

exponential 

gradient 

trapezoidal integral 
dyadic product 
cross vector product 


Operators 

div 

Dt 

EXP 

grad 

z 

99 

X 


inner vector product 
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9 

9Q 

A 


X 

XX 

*W 


S 

/ 

< > 


partial derivative with respect to Q 

incremental difference 

first-order centered difference 

second-order centered difference 

windward difference 

summation 

integral 

ensemble average 


Special symbols 

Q* turbulent fluctuation in Q about ensemble mean or first 

derivative of Q with respect to distance 
Q" second derivative of Q with respect to distance 

Q* nondimensional variable 

Q ensemble mean 

Q scalar 

g vector 

g tensor 



APPENDIX A 


TEST CASES 


This appendix contains the Varian plots of the computer model 
results for the four cases described In Table 4.1, pa. 92, and dis 
cussed in Chapter 4, beginning on pa. 89. 
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tide: PERIOD: 25.00 HR 


ELAPSED TIME: SI . 25 HR 
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VELOCITY VECTORS 

Figure A.2- PLOT ELEV: 1.25 M MSL 

^ , TIDE PERIQDj 25. 00 HR 

Case 1 

ELAPSED TIME: 81.25 HR 
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TIDE PERIOD: 25.00 HR 
ELRP5ED TIME: S7.5G HR 


30. KH 


Case 1 
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TIDE PERIOD: 25.00 HR 


ELAPSED TIME: 37.50 HR 
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Figure A. 40 - Case 1 
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Figure A, 69 - Case 2 
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Figure A. 74 - Case 2 
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Figure A. 79 - Case 2 
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Figure A. 84 - Case 2 
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Figure A. 118 - Case 3 
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Figure A. 12 8 - Case 3 
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^ TIDE PERIOD: 25.00 HR 

ELAPSED TIME: 227.03 HR 
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Figure A. 135 - 
Case 4 


VELOCITY VECTORS 
PLOT ELEV: 0.00 M MSL 
TIDE PERIOD: 25.00 HR 
ELAPSED TIME: 231.25 HR 
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VELQC.lT'f VECTORS 

Figure A. 139 - PLQT ELEV; 0.00 M MSL 

^ TIDE PERIOD; 2E.Q0 HR 

ELAPSED llMEs 239.58 HR 
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Case 4 


VELCIC,tTY VECTORS 
PLOT ELEV:’ O..QG M MSL 
TIDE PERIOD: 25' 00 HR 
ELfiPSED TIME: 241.67 HR 
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Figure A. 141 - 
Case '4 


VELOCITY VECTORS 
PLOT .ELEV: 0.00 M MSL 
TIDE PERIOD: 25.00 HR 
ELAPSED TIME: 2143.75 HR 
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Figure A.142- • PLOT ELEV: Q.OO M MSL - 

case 4 ’ tide PERIOD: 25.00 HR 
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Figure A. 143 - 
Case 4 


VELOCITY VECTORS 
PLOT ELE'V: 0. OG M MSI 
TIDE PERIOD: 25.00 HR 
ELAPSED TIME: 247. 92 HR 
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VELOCITY VECTORS 

Figure A. 144 - PLOT ELEV: Q.OQ M MSL 

Cage 4 tide PERIOD: 25. QD HR 

ELRPSED TIME: 2'5Q.0D HR 
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Figure A. 145 - 
Case 4 


SntlNITY PROFILE 
PLOT ELEV: Q.OU M MSL 
TIDE PERIOD: 25.00 HR 
ELRPSED TIME: 227.08 HR 



295 


O.KK - 


/ 


j“[IL 


I 


f 


^ 0 0 0 0 0 0 

0 0 0 0 0 0 0 

0 0 0 0 0 0 0 

0 0 0 0 0 0 0 

0000000 0 




'HI 

m “I 

10 -L 

GULF 

TIDE 

STRGE 


^0 0000000 0 

\l 10000000 
2 j 1 I 1 3 0 C 0 

112 2 3 0 0 0 


NflTER SCALE 
•FRESH Q 
GULF 10 



50. hM - 


9 8 5 3 

I 


-lO.hH 

Figure A. 146 - 
Case 4 
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SALINITY PROFILE 
PLOT ELEV: 0.00 M NSL 
TIDE PERIOD: 25.00 HR 
ELAPSED TIME: 229. 17 HR 
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Case 4 


SPLINITT PROFILE 
PLOT ELEV; 0.00 M MSL 
TIDE- PERIOD: 25.00 HR 

ELRPS’ED TIME; 231.25 HR 
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Figure A.148- PLOT ELEV:' 0.00 M MOL.' 

4 TIDE PERIOD”. 25.00 HR 

ELAPSED TIME: 233.33 HR 
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SRLINITY PROFILE 

Figure A.149- PLOT ELEV: Q,. 00 M NSL 

^ TIDE PERIOD: 25.00 HR ' 

ELRPSED TIME: 235.142 HR 
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Case 4 


SALINITY PROFILE 
PLOT ELEV: 0.00 M NS'L 
TIDE PERIOD; 2B.Q0 HR 
ELAPSED TIME-; 237.50 HR 
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SflLlN-lTY PROFILE 

Figure A.151- PLOT ELEV: Q.DG M MSL 

^ TIDE PERIOD: 25.00 HR 

ELfiPSED TIME: 239.58 HR - 
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Figure A.152- PLOT ELEV: O.OQ M MSL 

^ ■ TIDE PERIOD: 25. DO HR 

ELRPSED T IME’: 2lil . 67 HR 
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Figure A, 153 - 
Case 4 


SALINITT PROFILE 
PLOT ELEV: D.OQ M MSL 
TIDE PERIOD: 25.00 HR 
ELFIPSEO TIME: 243.75 HR 
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Figure a.154- . PLOT ELEV: 0.00 M M3L 

c.^4 TIDE PERIOD: 25.00 HR 

• ELAPSED TIME: 245.83 HR 
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SALIH.ITT PROFILE 

Figure A.155- PLOT ELEV: O.OQ M MSL 

^ TIDE PERIOD: 25.00 HR 

ELAPSED TIME: 2147.92 HR 
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SURFRCE PROFILE 

Figure A.162- TIDE PERIOD: 25.00 HR 

ELHPSED TIME; 2-37.50 HR 
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Case 4 


SURFACE PROFILE 
TIDE PERIOD: 25.00 HR 
ELAPSED TIME: 239.58 
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SURFPCE PROFILE 
TIDE PERIOD: 25:00 HR 
ELAPSED TIME: 2lil . 67 HR 
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APPENDIX B 


MOBILE BAY MODEL PROGRAM 

This appendix presents a description and listing of the computer 

program that implements the model of Mobile Bay developed in this 

research. The description material is devoted to the program organiza- 

\ 

tion, input and output. 

Discussion of the Program 

The Mobile Bay model program is composed of fourteen- subroutines 
driven by a main program. The names of these routines and their 
primary tasks are listed in Table B.l. The sequence of calculations 
and the subroutine where the calculations are performed are shown in 
the flow diagram of Figure B.l. Since the program was written to allow 
restarting a simulation from data stored on magnetic tape as well as 
performing several different simulations in succession, the user is 
referred to the comment statements in the subroutine PRELIM for a 
detailed explanation of the options. The following information should 
facilitate interpretation of Figure B.l. At the beginning of a new 
calculation, whether it be a cold start or a restart, the calling 
sequence is controlled primarily by PRELIM until the preliminary calcu- 
lations have been completed and then by MAIN while the time integtation 
is being performed. 

At predetermined intervals and at the normal completion of a run, 
data Are written on magnetic tape from RITE, an entry point in REED. 
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Name 

MAIN 

BALNCE 

BONDRY 

BOTTOM 

INITAL 

PRELIM 

PRESS 

PENT 

REED 

RUBBER 

SETUP 

UVSNEW 

VISCUS 

VOLDIL 


TABLE B.l 

Mobile Bay Model Program Routines 


; Primary Task , 

Serves as a driver for subroutines. 

Performs cumulative and- unsteady total and salt t/ater 
balances at each time level. 

Adjusts time dependent boundary conditions at each time 
level. 

Computes the elevations of the bay and channel bottoms 
at start of new simulation. 

Initializes- flow field and material balance variables at . 
start of new simulation. 

Reads input data from cards, performs or invokes routines 
to perform preliminary calculations and writes input 
data to paper. 

Calculates the pressure field at dach time level. 

Writes flow field variables to paper. 

Reads and writes (through entry point RITE) complete 
problem description on magnetic tape. 

Generates bay and channel grid systems at start of new 
simulation . 

Retrieves old values of flow field variables from arrays 
and assigns them to Working variables, invokes UVSNEW, 
and assigns new values to storage locations in arrays. 

Calculates horizontal velocity components and the 
salinity at a grid point at each time level. 

Evaluates the turbulent diffusion terms in the horizontal 
momentum and species continuity equation. 

Calculates the vertical velocity components at each time 
level . 


BLOCK DATA 


Assigns numerical values to constants. 


320 


FIGUEE B.l 

SIMPLIFIED FLOW DIAGRAM FOR 
MOBILE BAY MODEL PROGRAM 
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These data are used by a' plot program presented in Appendix C and for 
restarting if a simulation is to be continued or a change in boundary 
conditions made. 

When the restart capability .is utilized, data are read from the 
magnetic -.tape by REED. The option of calling this subroutine is 
Invoked by a flag described in PRELIM. 

The program was coded to be as general and flexible as possible 
so that it can be applied to other bays and estuaries with a minimum 
of program modifications. For instance, the location of thfe banks and 
bottom of the bay are specified on input data cards and can be easily 
modified. At present, one to four rivers with their discharges directed 
along a x-z grid plane can be located along the upper edge of the bay. 
Also, a tidal inlet or river with a discharge in the y diredtion can 
be positioned anywhere along the right side of the bay when looking 
down the positive x axis and a tidal inlet can be positioned at will 
along the lower edge of the bay. While the depth of the two-dimensional 
channel may vary with x and its y lodation adjusted^ the channel must 
coincide with a x-z grid plane. With additional programming effort, 
the channel and rivers can be made to flow at angles other than 0® and 
90° to the vertical grid planes. 

Program Input 

All data cards used by the prograni are read by PRELIM. Preceding 
each READ statement are commeht cards which define and specify the 
units for each variable read. These data are nondimensionaiized before 
using them in the simulation. Three basic formats are used for input 
from data cards 8110, 9F10.5 and 6E12.0. The fifst format is used for 
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integers right adjusted in as field of ten coliuans, the second for 
floating point numbers without exponents hut with a decimal point 
punched in a field of ten columns and the third for floating point 
numbers with right adjusted exponents and decimal points punched in a 
field of twelve columns. The input variable names and corresponding 
formats are listed in Table B.2 for easy reference. 

Program Output 

The bulk of the output from the Mobile Bay model program is to 
magnetic tape; the rest is printed. The output to tape, which is 
accomplished with RITE, consists of a complete problem description 
(i.e. boundary locations, boundary conditions, grid plane locations, 
flow field variables, etc.) at the beginning and end of a run and at 
predetermined intervals in between. Because large volumes of data are 
Involved, it is necessary to conserve tape by using unformated WRITE 
statements. The output to paper, which occurs in MAIN, PRELIM and 
PRNT, is primarily for the purposes of problem identification, verifi- 
cation of card input data and monitoring the progress of the simulation. 
Also, all the flow field variables at each grid point are printed at 
the normal or abnormal end of a run to allow an inspection of the state 
of the flow field. 

Listing of Program 

A listing of the FORTRAN IV statements for the Mobile Bay model 
program and a typical set of input data follow. The large volume of 
printed output is not presented here. 
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TABLE B.2 

Input Variables for Mobile Bay Model Program 


Marne 

Format 

Name 

LTAPE 

no 

CVIS 

LABELI 

no 

ROUGH 

LABELO 

no 

VONKAR 

IMAX 

no 

JWAG 

JMAX 

no 

KMXC 

KMAX 

no 

CDEPTH 

NBAR 

no 

CWIDTH 

NMAX 

no 

DIRCTN 

NWRITE 

no 

DIRCTS 

CUTPT 

FIO.O 

FETCHN 

DTREAL 

FIO.O 

FETCHS 

FETCH 

FIO.O 

.VWINDN 

HREF 

FIO.O 

VWINDS 

PERIOD 

FIO.O 

ACCEL 

PHI 

FIO.O 

ARTVSC 

SiaiAT 

FIO.O 

YK2 

■XM^ 

FIO.O 

NRIV 

PHSEMP 

FIO.O 

JRIV(I) 

PHSEPH 

FIO.O 

RDEPTH(I) 

TAMPMP 

FIO.O 

RWIDTH(I) 

TAMPPH 

FIO.O 

PHASEl 

TAVOdP 

FIO.O 

PHASE2 

TAVGPH 

FIO.O 

DAVG 

CDIF 

FIO.O 

UVARl 


Format 

Name 

Format 

FIO.O 

UVAR2 

FIO.O 

FIO.O 

PASS 

FIO.O 

FIO.O 

PDEPTH 

FIO.O 

no 

PSALT 

FIO.O 

no 

PWIDTH 

FIO.O 

no 

UMAX 

no 

no 

SOUTH(I) 

FIO.O 

FIO.O 

WEST (I) 

FIO.O 

FIO.O 

EAST (I) 

FIO.O 

FIO.O 

B1 

E12.0 

FIO.O 

B2 

E12.0 

FIO.O 

B3 

E12.0 

FIO.O 

B4 

E12.0 

FIO.O 

B5 

E12.0 

FIO.O 

B6 

E12.0 

FIO.O 

B7 

E12.0 

no 

B8 

E12.0 

no 

B9 

E12.0 

no 

BIO 

E12.0 

no 

BBl 

E12.0 

FIO.O' 

BB2 

E12.0 

FIO.O 

BB3 

E12.0 

FIO.O 

BB4 

E12.0 

FIO.O 






nnn onnnnn 


DRIVER PROGRAM FOR 3-D* T I MH-DEPENDENT HYDRODYNAMIC AND 
SALINITY MODEL OF MOBILE BAY WITH SHIP CHANNEL# 


OCT. 29. 1975 


LOGICAL 

I STEP* 

KEYOUT 

DIMENSION 

0(7*4) 


COMMDN/ACCT/ 

QDOT (7) * 

QNET( 7) 

1 QSDOT(7)* 

0SNETC7) 


COMMON/BARS/ 

PTCTIN* 

SBAR* 

1 UBAR# 

VBAR 


COMMON/FORTNO/ 

LR* 

LT* 

1 LW 

COMMON/GRID/ 

OT, 

DT02* 

1 DX. 

DXINV, 

DXT2IN* 

2 DXINSQ* 

DY* 

DYINV* 

3 DYT2IN. 

OYINSQ* 

OZ* 

A 0ZD2. 

DZINV* 

OZT2INt 

5 DZ INSQ 



COMMON/INDEX/ 

I . 

J » 

1 K. 

N 


COMMON/LIMI TS/ 

IMAX* 

IMAXMl * 

1 JMAX* 

JMAXMl * 

KMAX* 

2 KMAXMl# 

KMA.XM2* 

NMAX* 

3 KEYOUT 

COMMON/PULL/ 

SY(17) , 

SYYC17) 

1 TIME* 

X(I8) • 

Y( 17) * 

2 YK2» 

Z(8) 


COMMON/RYTE/ 

10. 

LABEL I* 

1 LABELO 

COMMON/STEP/ 

MN* 

MO* 

1 NBAR* 

NWRI TE* 

ISTEP 

COMMON/UNITS/ 

BETA* 

BETA02* 

1 FETCH* 

GRAV* 

HREF* 

2 OMEGA* 

PI * 

THEF^ 

3 VREF* 

YMAX 


READ DATA AND 

PERFORM PRELIMINARY 

CALCULATIONS. 


S CALL PRELIM 
TIMED - TIME 

CTM - TREF / 3600. 

CSB = PTCTIN / TREF 

CUB - CSB ^ VREF 

CFR = HREF ^ HREF « VREF 

CVL - HREF ^ HREF ❖ HREF 
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onnnnn nnn onn nnn non non non 


KEYOUT = .FALSE, 

WRITE(LW.IOOO) {I. I = 1. 7} 

STEP FORWARD IN TIME. 

10 N = N + 1 

TIME = TIMEO + FLOAT(N) * DT 

MN = 3 - MN 

MO = 3 - MO 

ADJUST TIME DEPENDENT BOUNDARY CONDITIONS. 

CALL 60NDRY 

ESTIMATE NEW HORIZONTAL VELOCITY COMPONENTS AND SALINITIES. 

I STEP = .TRUE. 

CALL SETUP 

ADJUST VERTICAL VELOCITY COMPONENTS AND SURFACE HEIGHTS. 

CALL VOLOIL 
IFIKEYOUT) GO TO 100 

COMPUTE new pressure FIELD. 

CALL PRESS 
IF(KEYOUT) GO TO 1 00 

PERFORM MATERIAL BALANCE AROUND SYSTEM. 

CALL BALNCE 

DEPENDENT VARIABLES HAVE BEEN COMPUTED FOR THIS TIME STEP. 

WRITE MONITOR VARIABLES EVERY N0AR TIME STEPS TO TAPE AND 
PRINTER. 

IE(N.NE.NBAR*(N/NBAR) ) GO TO 30 

lO = LT 

CALL RITE2 

TIMERL = TIME ♦ CTM 

SBARI = SBAR ♦ CSB 

UBARl = U8AR * CUB ^ 

VBARl = V8AH * CUB to 

WRITEILW.IOOI ) N. TIMERL, SBARI, UBARl, VBARl O' 

DO 20 L = 1 . 7 



nnn nnnn non 


Q(L*1) = QDOT(L) ♦ CFR 
Q<L*2) = QSOOT<L) # CFR 
Q<L,3) = QNET(L) * CVL 
20 Q(L,4) = QSNET<L) * CVL 

WRITE(LW,1002) ( ( Q ( L ♦ M ) « L=1 *7 ) , M= 1 *4 ) 

WRITE FLOW FIELD VARIABLES TO TAPE AT SELECTED INTERVALS. 

30 IFCN.NE.NWRITE+IN/NWRITE) ) GO TO 40 
10 = LT 

CALL RITE 

TEST FOR END OF RUN. IF END IS REACHED PRINT RESULTS. 
OTHERWISE, CONTINUE. 

40 IF(N.LT.NMAX) GO TO 10 
100 CALL PRNT 

LABEL! = LA8EL0 

10 = LT 

CALL RITE 

ifckeyout) stop 

RESET TIME AND TIME INDEX TO ZERC FOR NEXT CASE. 

N - 0 

GO TO 5 

1000 FORMAT! //.SX, ‘RATES ARE IN M443/S, VOLUMES ARE IN M**3',/,5X, 

1 7(« TOTAL/SW* ) ,/,5X,7{ » RATE/VOL* ) ,/ , IX ,7 ( 1 1 X , 1 1 ) ) 

lOCl F0RMAT(5X,' N = •*I5,‘» TIME = *.F6.2,* HR.. SBAR = »,IPE12.4, 
l», UBAR = •.E12.4,*, VBAR = ‘.Eia.A) 

1002 FORMAT(6X,lP7El2.4,/»3(6X,7E12.4,/) ) 

END 
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SUBROUTINE BALNCE 
C 

C PERFORM CUMULA 

C BALANCES, 

C 

LOGICAL 

dimension 

DOUBLE PRECISION 
COMMON/ACCT/ 

1 QSDOT(7), 
COMMON/8NKCRO/ 

1 JE* 

2 JWEST(22J. 
COMMON/CHNNEL/ 

1 JWAG, 

2 KMXCM2 
COMMON/FLOOR/ 
COMMON/FLOORC/ 
COMMON/FLOW 1/ 

1 U< 2, 18,17*08) , 
COMMON/FLO W2/ 

1 DUDT( 18, 17.08) 
COMMON/FLOWCl/ 

I UC<2.18,20)» 
COMMON/FLO WC2/ 

I DUCOT(18.20) 
COMMON/GRID/ 

1 OX. 

2 DXINSQ, 

3 OVT21N, 

4 DZD2, 

5 DZINSQ 
COMMON/L IMI TS/ 

1 JMAX, 

2 KMAXMl. 

3 KEYOUT 
COMMON/PASS/ 

1 PMOMAF, 

COMMON /P ULL/ 

1 TIME, 

2 VK2, 

COMMON/P ULLC/ 
COMMON/RIVERS/ 

1 PHASE 1, 

2 RM0MAF(4), 

3 UVAR I ♦ 

commqn/step/ 


IVE AND UNSTEADY TOTAL 


I STEP, 

QDQTO (6) , 
SURF(2,18,17), 
QOOT (7) , 
0SNET(7) 
EAST(22) , 
JEAST<22) , 
SOUTH (22) , 
CDEPTH, 

kmxc , 

KFLOOR(18,17) , 
KFL0RC( 18) , 
P(18,17,08), 
V(2,18,17,08), 
SURF, 

DVDT(18,17,08) 
PC(18,20) , 
WC(1S.20 ) 
SURFC, 

DT, 

OXINV, 

DY, 

DYINSQ, 

DZINV. 

I MAX, 

JMAXMl , 

KMAXM2 , 

I PASS, 

PSALT, 

SY( 17) , 

X(16) , 

2 ( 8 ) 

ZC(20) 

JRIV(4) , 

PHASE2 , 
RWI-DTH(4) . 
UVAR2 
MN , 


AND GULF WATER 


KEYOUT 
QSDOTO(6 ) 
SURFCI 18 ) 

QNET( 7), 

UMAX, 

JW, 

WEST (22) 
CWIDTH, 

KMXCMl, 

Z8( 18, 17 ) 

ZBC( 18) 

5(2,18,17,08), 
W( 18, 17,08 ) 
OHDT( 18,17), 

SC(2, 18,20 ), 

DHCDT( 18 ) . 

DTD2, 

DXT2IN, 

OYINV, 

DZ, 

DZT2IN, 

IMAXMl , 

KMAX, 

NMAX, 

PDEPTH, 

PWIDTH 
SYY( 17), 

Y( 17 ) , 


NRIV, 

RDEPTH(4 ) . 
UAVG, 

MO, 



ol 

Ci 5^ 


1 NBArt* NWRITE. 

COMMON/TIDE/ PHSEMP* 

1 TAMPMP* TANPPH, 

2 TAVGPH* THGTMP* 

DO 5 NN = I , 6 

QOOTO(NN) = QDOT(NN) 

5 QSDOTO<NN) = QSDOT(NN) 

C 

C EVALUATE FLUXES THROUGH RIVER MOUTHS. 

C 

DO 20 NN = 1, NRIV 
J = JRIVINN) 

KBOT = KFLOOR( 1 . J) 

KBOTPl = KBOT + 1 
UKBOT = U(MN. 1 . J.KBOT) 

UKMXMl = U(MN.l.J.KMAXK-l) 

USK80T = UKBOT « S ( MN » 1 » J .KBOT ) 

SUMA = 0.5 ♦ (UKBOT + UKMXMl) 

SUMS = 0.5 ^ (USKBOT + UKMXMl * S ( MN , 1 , J , KMAXM 1) ) 

DO 10 K = KBOTPl. KMAXM2 
UK = U(MN.l.J.K) 

SUMA = SUMA + UK 
10 SUM8 = SUMS + UK * S(MN.l.J.K) 

DZKBOT = Z(KBOT) - ZB ( I . J ) 

DZKMAX = SURF(MN»1»J) + OZ. 

UKBOT = 0.5 ♦ UKBOT 
USKBOT = 0.5 * USKBOT 
UKMAX = U(MN. 1. J.KMAX) 

UK = 0.5 * (UKMAX + UKMXMl) 

USK = 0.5 ♦ (UKMAX ♦ S ( MN . 1 , J. KMAX ) + 

I UKMXMl « S(MN.l . J.KMAXMl ) ) 

PREFIX = DY / SY(J) 

IF( J.EQ.JWAG) PREFIX. = PREFIX - CWIDTH 

QDOT(NN) = (DZ * SUMA + DZKMAX * UK + DZKBOT ♦ UKBOT) ♦ PREFIX 
20 QSDOT(NN) = (DZ ♦ SUMB + DZKMAX * USK + DZKBOT *■ USKBOT) ♦ PREFIX 
C 

C EVALUATE FLUX THROUGH PAS AUX HERONS. 

C 

1' 5= IPASS 

J = JWEST( I ) - 1 

JPl = J + 1 

KBOT = KFLOOR( I , JPl ) 

KBOTPl = KBOT + 1 
UKBOT = V(MN. I .J.KBOT) 

UKMXMl = V(MN*1 .J.KMAXMl ) 

USKBOT = UKBOT ♦ S ( MN . I . J .KBOT ) 

SUMA = 0.5 * (UKBOT + UKMXMl) 


ISTEP 

PHSEPH. 

TAVGMP. 

THGTPH 
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SUMS = 0.5 ♦ (USKBOT + UKMXMl * S ( MN . 1 . J. KMAX M I ) ) 
IF(KB0TPI.GT.KMAXM2) go to 35 
DO 30 K = KBOTPlt KMAXM2 
UK =V(MN.I*J.K) 

SUMA = SUMA + UK 
30 SUMS = SUMS + UK ♦ S{MN.I»J.K) 

35 OZKBOT = Z(KBOT) - ZSCI.JPl) 

OZKMAX = THGTPH + DZ 
UKBOT = 0.5 * UKBOT 
USKBOT ~ 0.5 ♦ USKBOT 
UKMAX = V<MN.I . J.KMAX) 

UK = 0.5 * (UKMAX + UKMXMl) 

USK = 0.5 * (UKMAX S ( MN « I . J .KMAX ) + 

1 UKMXMl « S(MN.I , J.KMAXMl ) ) 

QD0T(5) = (OZ * SUMA + DZKMAX ♦ UK + DZK80T ♦ UKBOT) ♦ OX 
QSOOT(S) = (OZ * SUMS + DZKMAX ♦ USK + OZKBOT * USKBOT) ♦ OX 

EVALUATE FLUX THROUGH THE MAIN PASS. 

JW = JWEST(tMAX) 

JE = JEAST(IMAX) • 

SURFl ? SURF(MN.IMAX.JW) 

SURFJP = SURFl 
KBOT = KMAX + I 
K80TJP = KFLOOR( IMAX, JW) 

QD0T<6) = 0.0 

QSDOT(6) = 0.0 
DO 210 J = JW, JE 
JPI = J + 1 
JMl = J - 1 

PREFIX - OY / SY(J) 

IF( J.EQ. JWAG) PREFIX = PREFIX - CWIDTH 

SURFJM = SURFl 

SURFl = SURFJP 

SURFJP s= SURF(MN.IMAX, JPI ) 

IF(J.EQ.JE) SURFJP = SURFl 

KBQTJM = KBOT 

KBOT = KBOTJP 

KBOTPI = KBOT + 1 

KBOTJP = KFLOOR( IMAX* JPI ) 

IF(KBOT.GT.KMAX) GO TO 210 
UJK = U(MN,IMAX, J.KBOT) 

USJK - UJK * S(MN, IMAX, J.KBOT) 

IF(KBOT.GT.KaOTJM) GO TO 40 
UJMK = UJK 
USJMK = USJK 
GO TO 50 
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40 UJMK = U<MN,IMAX. JMl ,K80T) 

USJMK = UJMK S(MN»IMAX*JM1 ♦KBOT) 

SO IF(KBOT-GT.KBOTJP) GO TO 60 
UJPK = UJK 
USJPK = USJK 
GO TO 70 

60 UJPK = U(MN*IMAX* JPl ♦KBOT) 

USJPK = UJPK * S< MN* I MAX* JPl *KBOT > 

70 UKBOT = 0*25 ♦ (UJMK + UJK + UJK + UJPK) 

USKBOT = 0.25 * (USJMK + USJK + USJK + USJPK) 

UJK = U(MN.IMAX* J*KMAX«1 ) 

USJK = UJK S(MfM.IMAX. J.KMAXMl ) 

IF(KMAXM1*GT.KB0TJM> GO TO 80 
UJMK = UJK 
USJMK = USJK 
GO TO 90 

80 UJMK - U<MN»IMAX« JMl .KMAXMI ) 

USJMK = UJMK * S(MN*IMAX. JMl .KMAXMI ) 

90 IF(KMAXMl.GT.KBQTJP) GO TO 100 
UJPK = UJK 
USJPK = USJK 
GO TO 110 

100 UJPK = U(MN.IMAX*JP1 .KMAXMI ) 

USJPK = UJPK * S(MN*IKAX* JPl *KMAXM1 ) 
llO UKXMl = 0.25 * (UJMK + UJK + UJK + UJPK) 

USKXMl = 0.25 ♦ (USJMK + USJK + USJK + USJPK) 

SUMA = O.S * (UK0OT + UKXMl) 

SUMS = 0.5 * (USKBOT + USKXMl) 

DO 160 K = KBOTPl. KMAXM2 
UJK =5 U(MN,IMAX. J*K) 

USJK = UJK * S(MN*1 MAX. J»K) 

IF (K.GT.KBOTJM) GO TO 120 
UJMK = UJK 
USJMK = USJK 
GO TO 130 

120 UJMK = U(MN.IMAX.JM1 .K) 

USJMK = UJMK ♦ S(MN»IMAX.JMl »K) 

130 IF(K.GT.KBOTJP) GO TO 140 
UJPK = UJK 
USJPK = USJK 
GO TO ISO 

140 UJPK = U(MN . IMAX. JPl ,K) 

USJPK = UJPK ♦ S(MN. IMAX. JPl ,K) 

150 SUMA = SUMA + 0.25 * (UJMK + UJK + UJK + UJPK) 

160 SUMB = SUM8 + 0.25 * (USJMK + USJK + USJK + USJPK) 

DZKBOT = Z(K80T) - ZSUMAX.J) 

DZKMAX = 0.25 * (SURFJM + SURFl + SURFl + SURFJP) + DZ 
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UKBOT = 0.5 * UK30T 
USKBOT = O.S * USKBOT 
UJK = U(MN* IMAX . J*KMAX) 

USJK = UJK * S(MN.IMAX, J.KMAX) 

IFCKMAX.GT.KBOTJM) GO TO ITO 
UJMK = UJK 
USJMK = USJK 
GO TO 180 

170 UJMK = U<MN* IMAX , JMl ,KMAX) 

USJMK = UJMK ♦ SIMN.IMAX. JMl ,KMAX) 

180 IF(KMAX.GT.KBOTJP) GO TO 190 
UJPK = UJK 
USJPK = USJK 
GO TO 200 

190 UJPK = UIMN.IMAX.JPl »KMAX> 

USJPK = UJPK ★ S(MN, IMAX, JPl .KMAX) 

200 UKMAX = 0.25 * {UJMK + UJK + UJK ♦ UJPK) 

USKMAX = 0.25 ♦ (USJMK + USJK + USJK + USJPK) 

UJK = O.S * (UKXMl + UKMAX) 

USJK = 0.5 ♦ (USKXMl + USKMAX) 

QD0T<6> = (DZ <= SUMA + DZKMAX ♦ UJK + D2K80T * UKBOT) ♦ 

1 PREFIX + Q00T(6) 

QSD0TC6) = (DZ ♦ SUMS + DZKMAX * USJK + OZKBOT * USKBOT) * 

1 PREFIX + QSD0T(6) 

210 CONTINUE 

EVALUATE FLUXES THROUGH NORTH AND SOUTH ENDS OF THE CHANNEL 
AND add to MOBILE RIVER AND MAIN PASS FLUXES, RESPECTIVELY. 

I =1 

22C KBOT = KFLORC(I) 

KBQTP 1 = KBOT + 1 

UKBOT - UC(MN,I ,K8CT) 

UKMXMl = UC( MN, I .KMXCMl ) 

USKBOT = UKBOT # SC ( MN , I , KBOT ) 

SUMA = 0.5 * (UKBOT + UKMXMl) 

SUMS = 0.5 ♦ (USKBOT + UKMXMl « SC ( MN, I ,KMXCM 1 ) ) 

DO 230 K = K80TP1, KMXCM2 
UK = UC(MN,I ,K) 

SUMA = SUMA + UK 
230 SUMS = SUMS + UK ♦ SC(MN,I,K) 

DZKBOT = ZC(KBOT) - Z8C ( I ) 

DZKMAX = SURFC(I) + DZ 
UKBOT = 0.5 * UKBOT 
USKBOT = 0.5 * USKBOT 
UKMAX = UC(MN,I ,KMXC) 

UK - 0.5 ♦ (UKMAX + UKMXMl) 
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USK = 0.5 * (UKMAX * SC { VN. I » KMXC) + 

1 UKMXMl ♦ SC {MN« I .KMXCMU ) 

IF( I .NE. 1) I = 6 

QDQKI) = <DZ * SUMA + DZKMAX * UK + DZKBQT * UKBOT) * CW IDTH + 
1 QOOT(I) 

QSOOT<I) = (DZ * SUMB + DZKVAX ♦ USK + 

1 DZKBOT * USKBOT) * CWIDTH + QSOOr(I) 

IFd.NE.l) GO TO 240 
I = I MA X 

GO TO 220 
240 CONTINUE 
C 

C DETERMINE TOTAL AND GULF WATER VOLUME IN BAY. 

C 

SUMA =0.0 

SUMS =0.0 

DO 26C I = 2. IMAX 

IPl =1 + 1 

IF{ I.eo.IMAX) IPl = IMAX 

IMl =1-1 

JW = JWESTd ) 

JE = JEASTd ) 

SURFl = SURFIMN.I . JW) 

SURFJP = SURFl 

IF( 1 .EQ. IPASS) SURFl = THGTPH 
KBOT = KMAX + 1 

KBOTJP = KFLOORII.JW) 

DO 260 J = JW. JE 
JPI = J + 1 

JMl = J - I 

PREFI X = DY / 5Y{ J) 

IF( J.EQ. JWAG) PREFIX = PREFIX - CWIDTH 

SURFJM = SURFl 

SURFl = SURFJP 

SURFJP = SURF < MN .1 « JPI ) 

IF(J.EQ.JE) SURFJP = SURFl 

KBOTJM = KBOT 

KBOT = KBOTJP 

KBOTP I = KBOT + I 

KBOTJP = KFLOOR I I . JPI ) 

SURF I M = SURFIMN.IMl. J) 

IF(KFLOOR( IMl ,J) ,GT. KMAX) SURFIM= SURFl 
SURF IP = SUR-FIMN.IPI . J) 

IFIKFLOORI IPl »J) .GT. KMAX) SURFIP = SURFl 
1F( I .EQ. IMAX) SURFIP = THGTMP 
SUMC = 0.0 

DO 25C K = KBOTPl. KMAXMl 
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250 SUMC • = SUMC + S<MN«I*J,K) 

SURFAV = 0.125 * <4.0 ♦ SURFl + SURFJP + SURFJM + SURFIM 4 

1 SURFIP) 

DZKMAX = SURFAV + DZ02 
ZBOT = ZB(I.J) 

OZKBOT = DZ02 + Z<KBOT) ~ ZBOT 

SUMS = (SUMC 4 DZ + DZKMAX * S ( MN « 1 • J« KMAX ) + 

I OZKBOT 4 S(MN.I . J.KBOT) ) ♦ PREFIX + SUMO 

260 SUMA = (SURFAV + 1.0 - ZBOT) ♦ PREFIX + SUMA 


SURFl 

SL 

SURFC ( 1 ) 

SURFIP 


SURFC(2) 

DO 280 

I 

= 2. IMAX 

IP 1 

— 

I + 1 

IF( I#EO 

• 

IMAX) IPl = IMAX 

IMl 


I - 1 

K0OT 


KFLORC( I ) 

KBOTP 1 

= 

KBOT + 1 • 

SURFIM 

as 

SURFl 

SURFl 

s= 

SURFIP 

SURFIP 


SURFC (I PI ) 

I F ( I • EQ 

* 

IMAX) SURFIP = THGTMP 

SUMC 


0.0 

DO 27 0 

K 

= KSOTPl. KMXCMl 


270 SUMC = SUMC + SC(MN*I»K) 

SURFAV = 0.25 * (SURFIM + SURFl + SURFl + SURFIP) 

DZKMAX = SURFAV + DZ02 
ZBOT = Z8C(I) 

DZKBOT = 0ZD2 + ZC(KBOT) - ZBOT 

SUMB = (SUMC * D2 + DZKMAX * SC ( MN« I ,KMAX ) + 

1 OZKBOT * SC (MN. I .KBCT) ) ♦ CWIDTH + SUMB 

230 SUMA = (SURFAV + 1.0 - ZBOT) * CWIDTH + SUMA 
SUMA = SUMA * DX 
SUMB = SUMB * DX 

QDOT(7) = (SUMA - QNET(7)) / DT 
QSD0T<7) = (SUMB - aSNET(7)) / DT 

CALCULATE CUMULATIVE FLOWS. 

QNET(7) = SUMA 
QSNET(7> = SUMB 
DO 290 MN = I, 6 

QNET(NN) = QNET(NN) + (QOOTO(KN) + ODQT(NN)) ♦ CT02 
290 QSNETCNN) = QSNET(NN) + (QSDCTO(NN) + QSDOT(NN)) * DTD2 
RETURN 
END 
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SUBROUTINE BONDRY 
C 

C ADJUST TIME DEPENDENT BOUNDARY CONDITIONS. 

C 


LOGICAL 

I STEP, 

KEYOUT 

DOUBLE PRECISION 

SURF (2,18,17) , 

SURFC( 18) 

COMMON/ACCT/ 

QDCT (7 ) , 

QNET(7), 

1 QSDOT(7)» 

0SNET(7) 


COMMON/HNKCRD/ 

EAST(22) , 

I I MAX, 

1 JE, 

JEAST(22) , 

JW, 

2 JWESTI22), 

SOUTH (22 ) , 

WEST(22 ) 

COMMON/C HNNEL/ 

CDEPTH, 

CWIOTH, 

1 JWAG« 

KMXC, 

KMXCMl , 

2 KMXCM2 

COMMON/FLOOR/ 

KFLCOR (18, 17) . 

28( 18,17) 

COMMON/FLOORC/ 

KFL0RC(18> , 

ZBC( 18 ) 

common/flowi/ 

P( 18,17,08) , 

S(2,18, 17,08) 

1 U( 2, 18, 17,08) , 

V(2.18,17,08) , 

W( 13, 17, 08) 

C0MM0N/FL0W2/ 

SURF , 

DHDT( 18* 17 ). 

1 DUOT( 18, 17,08) , 

DV0T(ia,17,08) 


COMMON/FLOWCl/ 

PC ( 18,20) , 

SC(2,1S,20), 

1 UC(2, 18,20), 

WC(18,20) 


COMMON/FLO WC 2/ 

SURFC, 

DHCDT( 18 )• 

1 OUCDT( 18,20) 

common/forces/ 

F, 

FWINDXC 18, 17 ) 

1 FW LNDY( 18, 17) , 

TOPLYR 


COMMON/GRID/ 

OT, 

DTD2, 

1 DX. 

DXINV, 

DXT2IN, 

2 DXINSQ, 

DY, 

DYINV, 

3 0YT2IN, 

DYINSQ, 

DZ, 

4 OZD2, 

bZI NV ♦ 

0ZT2 IN, 

5 OZINSQ 



COMMON/GULF/ 

CUTPT, 

KCUT, 

1 PERIOI 



COMMON/LIMITS/ 

I MAX , 

IMAXNl, 

1 JMAX, 

JMAXMl , 

KMAX, 

2 KMAXMl, 

KMAXM2 , 

NMAX, 

3 KEYOUT 



COMMON/PASS/ 

IPASS, ' 

PDEPTH, 

1 PMOMAF, 

PSALT, 

PWIDTH 

COMMON/PULL/ 

SY( 17) , 

SYY.t 17) , 

1 TIME, 

X( 18) ♦ 

Y( 17) , 

2 YK2, 

2(8) 


COMMOM/PULLC/ 

2C(20) 


COMMON/RIVERS/ 

JRIV(4 ) , 

NRIV, 

1 PHASE 1, 

PHASE2 , 

R0EPTH(4), 

2 RMOMAF(4), 

RWIOTH (4 ) , 

UAVG, 
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3 UVARl^ 
COMMON/STEP/ 

I NBAR# 
COMMON/TIOE/ 

1 TAMPMPt 

2 TAVGPH* 
COMMON/VJNITS/ 

X FETCH ^ 

2 OMEGA « 

3 VR EF ^ 

TNMI = TIME - DT 


UVAR2 

MNf 

NWRITE* 

PHSEMP^ 

TAMPPHi. 

THGTMP* 

BETAf 

GRA V ■» 

PI • 

YMAX 


MO. 

I STEP 

PHSEPH, 

TAVGNP. 

THGTPH 

0ET A02 . 

HREF. 

TREF, 


SET VELOCITIES IN RIVER MOUTHS AND NORTH END OF CHANNEL. 

URIV = 1.1428S7 ♦ (UAVG + UVARl ♦ COS({TNMl - PHASED * PERIDI) 
1 + UVAR2 * COSUTNMl - PHASE2 ) * 2.0 * PERIOD) 

DO 30 NN = 1. NR IV 

URIVl = URIV / RMOMAF(NN) 

J = JRIV(NN) 

ZBOT = Z0( I . J) 

KBOT = KFLOORI 1 . J) 

PREFIX = 1,0 / (SURF{MO,l .J) + I.O - ZBOT) 

DO 10 K = KBOT, KMAX 
VERT = (ZIK) - ZBOT) « PREFIX 
10 UIMO.l.J.K) = URIVl * (1.0 - (1.0 - VEBT)*#7) 

IF( J.NE. JWAG) 60 TO 30 
ZBOT = Z8C( 1 ) 

KBOT = KFLORC(l) 

URIVl - URIVl * RMOMAF(l) 

PREFIX = 1.0 / (SURFC(l) + 1.0 - ZBOT) 

DO 20 K = KBOT, KMXC 
VERT - (ZC(K> - ZBOT) ♦ PREFIX 
20 UC(MO.l.K) = URIVl * (1.0 - (1,0 - VERT)»«7) 

30 CONTINUE 

SET FREE SURFACE LOCATION IN PASS AUX HERONS AND MAIN PASS. 

THGTMP = TAVGMP + TAMPMP ♦ C0S((TNM1 - PHSEMP) # PERIOD 
JW = JWEST(IPASS) 

THGTPH = SURF(MO, IPASS, JW) 

SET SALINI Ty' BOUNDARY CONDITION IN THE MAIN PASS, 

IF(KCUT,LT.D GO TO 60 
JW = J WE ST (I MAX) 

JE = JEAST(IMAX) 

DO 50 J = JW, JE 
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KBOT = KFLOOR< IMAX, J) 

IF(KCUT.LT.KBOT) GO TO 50 
DO 40 K = KBOT* KCUT 
40 S(MO, IMAX, J.K) = 1*0 
50 CONTINUE 

60 KCUTC = KCUT + KMXC - KMAX 
IF(KCLTC.LT*0) GO TO 80 
KBOT = KFLQRC(IMAX) 

DO 70 K = KBOT* KCUTC 
70 SCtMO ,IMAX,K) = 1*0 
80 CONTINUE 
C 

C SET VELOCITIES IN PASS AUX HERONS, 

C 

JW = JWESTdPASS) 

JWMl = JW - I 

ZaOT = Z8<IPASS,JW) 

KBOT = KFLOORI IPASS, JW) 

PREFIX = 1*0 / (THGTPH + 1,0 - ZBOT) 

VPASS = - 0,228571 * QD0T(6) 4 PREFIX / PWIDTH 

DO 90 K = KBOT, KMAX 
. VERT = (Z(K) - ZaOT) « PREFIX 
SIMO, IPASS, JWMl ,K) = PSALT 

90 V(MO, IPASS; JWMl ,K) = VPASS ♦ U ,0 - <1,0 - VERD4+7) 
RETURN 
END 
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subroutine bottom (Cl* »C2,C3,C4 ,C5 » C6 ,C7 » C8 . C9 , C 1 0 . CC I , CC2 » CC3 » CC4 ) 

CALCULATE BAY AND CHANNEL BOTTOM LOCATION RELATIVE TO A DATUM 
PLANE located HREF METERS BELOW MEAN SEA LEVEL. A POLYNOMIAL 
IN X AND Y THAT HAS BEEN FITTED TO SOUNDING DATA TAKEN FROM 
NOAA TOPOGRAPHICAL MAP CSGS 1266 IS USED. 


LOGICAL 

KEYOUT 


COMMON/BNKCRO/ 

EAST(22) * 

I I MAX* 

1 JE^ 

JEAST<22 ) * 

JW* 

2 JWEST(22)f 

SOUTH (22 ) « 

WEST( 22 ) 

COMMON/CHNNEL/ 

CDEPTH* 

CWIOTHt 

1 JWAGt 

KMXC f 

KMXCMl • 

2 KMXCM2 



COMMON/FLOOR/ 

KFLCOP ( 18*17) * 

ZS( 18*17) 

COWMON/FLOORC/ 

KFLORCC 18) * 

ZBC( 18) 

COMMQN/GRID/ 

DT* 

DTD2* 

1 ox» 

DXINV* 

0XT2IN* 

2 OXINSQs 

DY* 

DYINV* 

3 0YT2IN. 

DYINSQ* 

DZ* 

4 0ZD2, 

OZINV* 

0ZT2 IN* 

5 DZINSQ 



COMMDN/L IMI TS/ 

I MAX* 

IMAXMl* 

1 JMAX* 

JMAXMl * 

KMAX* 

2 KMAXMl, 

KMAXM2 * 

NMAX* 

3 KEYOUT 



COMMON/PASS/ 

IPASS* 

PDEPTH* 

1 PMOMAF* 

PSALT* 

PWIOTH 

COMMON/PULL/ 

SY(17) * 

SYY( 17)* 

X TIME* 

X ( 18) * 

Y(J7) * 

2 YK2. 

Z<8) 


COMMON/PULLC/ 

ZC(2C> 


common/rivers/ 

JRIV(4) , 

NRI V* 

1 PHASE 1* 

PHASE2* 

R0EPTH(4) 

2 RM0MAF(4), 

RWIDTH(4) * 

UAVG* 

3 UVARl. 

UVAR2 


COMMONZUNI TS/ 

BETA* 

BET AD2* 

1 FETCH* 

GRAV* 

HREF* 

2 ' OMEGA* 

PI* 

TREF* 

3 VREF* 

YMAX 



KMAXPl = KMAX + 1 
KMXCPl = KMXC + 1 
DO 10 1 = 1. I MAX 

KFLORC(I) = KMXCPl 
ZBC(I) = l.Ol 
DO 10 J = 1. JMAX 
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KFLOOR(I.J) = KMAXPl 
10 ZBdtJ) = 1.01 

DO 20 I = 2. IMAXMl 
JW = JWEST( I ) 

JE = JEASTd ) 

XI = X(U 


CONST 1 

= Cl XI 

* (C2 + 

XI * (C4 

+ XI ♦ C7)) 

CONST2 

^ C3 + XI 

♦ (C5 + 

XI * C8) 


C0NST3 

~ C6 + XI 

« C9 



DO 20 J 

= JW, JE 




Y1 

= Y(J) 




20 ZB( J) 

CONSTl 

+ Y1 ♦ 

(C0NST2 + 

VI ♦ {CQNST3 + Y1 ♦ CIO)) 

DO 40 I 

= 2, IMAXMl 




JW = JWEST( r ) 

JE = JEASTd ) 

DO 40 J = JW. JE 
ZBl = ZB( I, J> 

IF(ZBl.LT.l.O) GO TO 35 
K = KMAXM2 

ZBd.JJ = ZIK) - 0.1 ♦ DZ 

GO TO 40 
35 K =0 

30 K = K + 1 

IF<Z{ K) .LT.ZBl ) GO TO 30 
IF<K.LE.KMAXM2) GO TO 40 
K = KMAXM2 

ZBd, J) = Z(K) - 0.1 « DZ 

40 KFLOORC I. J ) = K 

DO 50 NN = 1. NRIV 

J = JRIV(NN) 

ZB( 1. J) = Z8(2, J) 

50 KFLOOR(l.J) = KFLOOR<2.J) 

JW = JWESTdMAX) 

JE = JEASTdMAX) 

DO 60 J = JW, JE 
ZB<IMAX,J) = ZBdMAXMl.J) 

60 KFLOOR( ^MAX, J) = KFLOOR ( I MA XN I , J ) 

J.W = JWESTdPASS) 

ZBl ■= 1,0 - PDEPTH 

Z8( IPASS, JW) = ZBl 
K - 0 

70 ^ ^ ^ 

IF (Z( K) .t-T.ZRl ) GO TO 70 
KFLOORI IPASS, JW) = K 
DO 80 I = I, I MAX 

XI = xd ) 

BO Z8Cd) = CCl + XI * <CC2 + XI * (CC3 + XI # CC4 ) ) 
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•O ^ 


DO 100 I = 1* I MAX 

ZB 1 = zac( I } 

K =0 

90 K = K + 1 

1F(ZC(K) .LT.ZBl ) GO TO 90 
IF(K.LE.KMXCM2) GO TO 100 
K = KMXCM2 

ZBC(I) = ZC(K) - 0,1 * DZ 
100 KFLORC( I ) = K 

RETURN 
END 
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SUBROUTINE INITAL 

INITIALIZE FLOW FIELD AND MATERIAL BALANCE VARIABLES AND 
DETERMINE INITIAL TOTAL AND GULF WATER CONTENT. 


LOGICAL 

ISTEP, 

KEYOUT 

DOUBLE PRECISION 

SURF(2,18.I7) , 

SURFC( 18 ) 

COMMDN/ACCT/ 

QD0T( 7> . 

QNET(7) , 

1 QS0nT(7). 

QSNET(7) 


COWMON/BARS/ 

PTCTl N. 

SBAR, 

1 UBAR^ 

VBAR 


COMMON/BNKCRD/ 

EASTI22) * 

I IMAX, 

1 JE » 

JEAST(22) . 

JW, 

2 JWEST(22)» 

SOUTH (22 ) . 

WEST< 22 ) 

COMMON/CHNNEL/ 

CDEPTH » 

CWIOTH, 

1 JWAG, 

KMXC. 

KMXCMI « 

2 KMXCM2 



COMMON/FLOOR/ 

KFL00R(18,17) . 

2B( 18.17) 

COMMON/FLOORC/ 

KFLORCUS) « 

Zac( 18) 

COMMON/FLOWl/ 

P( 18.17,08) . 

3(2,18,17,08), 

1 U( 2f 1 8* 17*08) * 

V(2, 18, 17*08), 

W( 13, 17, 08 ) 

C0MM0N/FL0W2/ 

SURF, 

DHDT< 18, 17), 

1 DUDTCia* 17*08) * 

0VDT(18, 17,08) 


COMMON/FLOWCl/ 

PC(18,20) * 

SC(2, 18, 20 ), 

1 UC(2*18*20)* 

WC(18,20) 


COMMONyFLOWC2/ 

SURFC, 

DHCDT( 18 )* 

1 DUCOT(1B*20) 



CDMMON/rORTNO/ 

LR, 

LT, 

1 LW 



COMMON/GRID/ 

DT, 

DTD2, 

1 DX * 

DXINV, 

DXT2IN, 

2 DXINSQ* 

OY, 

DYINV. 

3 DYT2IN* 

DYINSQ, 

DZ, 

4 DZ02* 

OZINV, 

0ZT21N, 

5 D2INSQ 



COMMON/GULF/ 

CUTPT , 

KCUT, 

1 PERIUI 



COMMON/LIMITS/ 

I MAX, 

IMAXN 1 • 

1 ‘ JMAX* 

JMAXMl , 

KMAX, 

2 KMAXMl* 

KMAXM2 , 

NMAX, 

3 KEYOUT 



COMMON/PASS/ 

IPASS. 

PDEPTH, 

1 * PMOMAF* 

PSALT, 

PWrOTH 

COMMON/PULL/ 

SY{ 17) , 

SYY(17), 

1 time. 

X ( IS) . 

Y(17), 

2 YK2* 

Z(8) 


common/pullc/ 

ZC (20 ) 
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c 

c 

c 

c 


c 

c 

c 


COMMON/RI VERS/ 

J«I V (4) * 

NRIV. 

1 PHASElt 

PHASE2* 

R0EPTH(4) 

2 RM0MAF(4)t 

RW1DTH(4) • 

UAVG* 

3 UVARD 

UVAR2 


COMMON/STEP/ 

MN* 

MO* 

1 NBARt 

NWRITE, 

ISTEP 

COMMON/TIDE/ 

PHSEMP. 

PHSEPH, 

1 TAMPMPt 

TAMPPH , 

TAVGMP, 

2 TAVGPHt 

thgtmp. 

THGTPH 

COMMON/UNITS/ 

BETA, 

8ETAD2. 

1 FETCHt 

GRAV* 

HREF, 

2 OMEGA t 

PI • 

TREE* 

3 VREFt 

YMAX 



SET ALL FLOW FIELD VARIABLES TO AN EXTREME VALUE TO INSURE 
THAT NOTHING IS MISSED* 


TIME = 0^0 
DO ao I = 1. I MAX 
00 10 J ^ 1» JMAX 
SURFC MN»I*J>= 1*E7C 
DHDT( I* J3 “ 1*E70 
DO 10 K = 1. KMAX 
Pi It J*K) = 1*E70 

S( MNt I* JtK ) ^ 1 *E70 
UIMNtltJtK) « 1.E70 
DU0T< It JtK ) - 1*E70 
V(MNtltJtK) == 1*E70 
DVDTIItJtK) ^ 1*E70 
10 WdtJtK) = 1*E70 
SURFC(I) = 1.E70 

OHCOT(I) = 1*E70 
DO 20 K ^ KMXC . 

PC(XtK) = l*E70 

SC(MNtltK) = 1*E70 
UC(MNtltK) = 1.E70 
OUCDTdtK) = I*E70 
20 WC(IfK) I.E70 

SPECIFY INITIAL CONDITIONS IN RIVER MOUTHS^ 


TIDAMP = 
UR I VI = 

1 

00 30 NN 
J ~ 

KBOT 


TAVGMP 4- TAMPMP 

1*142857 ♦ (UAVG 4- UVARl « COSICTIME - PHASED 
^ UVAR2 * COS((TIME - PHASE2 ) * 2*0 ^ PERIOD) 

^ It NR IV 
JRIV(NN) 

KFLOOR(ltJ) 


^ PERIOD 
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ZBOT = 

S0RF<MN*1.J) = TIOAMP 

DHDT< 1. J) =0.0 

URIVl = URIVl / RMOMAF{NN) 

PREFIX = 1.0 / ITIOAMP + l.O - ZBOT) 

DO 30 K = KBOT. KMAX 
OUDT( 1. J,K) = 0.0 
DVDT( 1. J.K) = 0.0 
VERT = (Z(K) - ZBOT) ♦ PREFIX 
PROF It- = 1.0 - (1.0 - VERT)**T 
U(MN.1.J»K) = URIVl * PRDFIL 

V(MN.l.J.K) = 0.0 
W( 1, J.K ) =0.0 

30 S(MN. 1. J.K) = 0.0 

SPECIFY INITIAL CONDITIONS IN PASS AUX HERONS. 
JW = JWESTUPASS) 

1 UM I = I W — t 

KBOT = KFLOOR( IPASS .JW) 

DO 35 K = KBOT, KMAX 
S{MN. IPASS. JWMl.K) = PSALT 
35 V(MN. IPASS, JWMl.K) = 0.0 

SPECIFY INITIAL CONDITIONS IN BAY PROPER. 

XMAX = X(IMAX) 

DO 40 I = 2. I MAX 
SALT = X(I) / XMAX 
TF(I.LE.ll) SALT = 0.01 
JW = JweSTd ) 

JE = JEAST(I) 

DO 40 J = JW, JE 
SURFIMN.I.J) = TIDAMP 
OHDT< I, J) = 0.0 
KBOT - KFLOOR(I.J) 

DO 40 K = KBOT, KMAX 
DUDTI I. J.K ) =0.0 

DVDT< I, J.K) = 0.0 
U{MN, I, J.K) = 0.0 
V(MN, I, J.K) = 0.0 
W( I. J.K) = 0.0 , 

40 S(MN.I.J.K) = SALT 

SPECIFY CONDITIONS IN SHIP CHANNEL. 

KBOT = KFLORCI I ) 
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ZBOT = ZBC( 1 ) 

URIVl = URIVI * RMOMAF(NRIV) 

SURFC< 1 ) = TIDAMP 

DHCOT(X) = 0.0 

PREFIX = 1.0 / <TIDAMP + 1.0 - ZBOT) 
DO 50 K = K80T. KMXC 
DUC0T{1,K) := 0.0 

VERT = <ZC(K> - ZBOT) ♦ PREFIX 
PROFIL = 1.0 - (1.0 - VERT)**7 
UCCMN.X.K) - URIVl * PROFIU 
WC(l.K) = 0.0 

SO SC(MN,1,K) = 0.0 
DO 60 I = 2, I MAX 
SALT = X(I) / XMAX 
SURFC(I) = TIOAMP 
DHCDT(I) = 0.0 
KBOT = KFLORC(I) 

DO 60 K = KBOT* KMXC 
OUCOT(I.K) - 0.0 
UC(MN.I.K) = 0.0 
WC( I*K) ^0.0 

60 SC(MN, I.K) s SALT 
CALL PRESS 


determine initial GULF AND TOTAL WATER VOLUMES. 

NPT = 0 

VOL = 0.0 

KMAXPl = KMAX + 1 

DO 70 I = 2. IMAXMl 
jw = jwesT< I ) 

JE = JEASTd ) 

DO 70 J = JW. JE 

70 NPT - NPT + KMAXPl - KFLOGR(I*J) 

DO 80 I = 2* IMAXMl 

80 NPT = NPT + KFLOOR ( I . JWAG) - KFLQRC(I) 

DO 85 NN = 1 , 7 
QDOT(NN) = 0.0 
QSDOT(NN) - 0.0 
QNET(NN) =0.0 
05 QSNET(NN) = 0.0 
CALL BALNCE 

PTCTIN = 1.0 / (FLQAT(NPT) ♦ OT) 

HREF3 = HREF # HREF * HREF 
VOL = QNETC7) # HREF3 
VOLSLT = QSNETC7) * HREF3 
WRITE(LW. 1000) NPT. VOL. VOLSLT 



#1 


aO ^ 

PS- 


c 

C ZERO material BALANCE VARIA8LES<» 

C 

DO 90 NN = !♦ 6 
QNETCNN) = 0#0 
90 QSNET(NN) * 0*0 
RETURN 
C 


lOOC PORMAT<///*5X t ’NO. 
1 TOTAL WATER VOLUME 
20LUME - •»E10.3*» 
END 


OF POINTS IN FLOW FIELD , 1 4 , // , 5X * • I N I T I AL 

^ •♦1PE10.3#* M*^3« t//^5Xf • INITIAL GULF WATER V 

M*^3 n 



SUBROUTINE PRELIM 


C 

C READ DATA TO SET UP PROBLEM, PERFORM 

C AND WRITE DESCRIPTIVE INFORMATION. 

C 


LOGICAL 

ISTEP, 

DOUBLE PRECISION 

SURF(2,18,17), 

COMMON/eNKCRD/ 

EAST(22) , 

1 JE* 

JEASTI22) , 

2 jWEST(22}f 

SOUTH (22) , 

COMMON/CHNNEL/ 

CDEPTH, 

1 JWAG^ 

KMXC • 

2 KMXCM2 


COMMON/FLOQR/ 

KFL00R(18,17) , 

COMMON/FLOORC/ 

KFLORC(IS) • 

COMMON/FLOVUl / 

P(18,17,0a) . 

1 U< 2,18*17*08) f 

V(2,18,17,08) , 

COMMON/FLOW2/ 

SURF, 

1 . DUDT< 18*17*08) * 

OVDT(18,17, 08) 

COMMON/FLOWCl/ 

PC<18,20) , 

1 UCC2, 18*20)* 

WCU8,20) 

COMMON/FLOWC2/ 

SURFC, 

I OUCOT<18*20) 


COMMON/FORCES/ 

F, 

1 FWINDY( 18*17) * 

TOPLYR 

COMMON/FOR TNG/ 

LR, 

1 LW 


COMMON/GRID/ 

DT, 

1 DX* 

DXINV, 

2 DXINSO, 

OY, 

3 DYT2IN* 

DYINSO, 

A DZ02* 

DZINV , 

5 DZINSQ 


COMMON/GULF/ 

CUTPT, 

1 PERIDI 


COMMON/LIMITS/ 

imax. 

1 JMAXf' 

JMAXMl , 

2 KMAXMl* 

KMAXM2 , 

3 ’ KEYOUT 


COMMON/LN/ 

FUNLNl . 

COMMON/PASS/ 

IPASS, 

1 pmomaf; 

PSALT, 

commqn/pull/ 

SYU7) , 

1 TIME*r 

XUS) , 

2 YK2, 

Z(8) 

cqnmon/pullc/ 

2CI20) 

COMMON/RIVERS/ 

JRIV(4) , 


preliminary calculations 


KEYOUT 
SURF.CI 18) 
UMAX* 

JW. 

WEST! 22) 
CWIDTH. 

KMXCMl, 

ZB( 18,17) 

ZBC( 16 ) 

S(2, 18, 17,08 ), 
W(18, 17,08) 
DHDTI 18, 17 ), 

SC(2, 18,20 ), 

DHCOTI 18 ) , 

FWINDXC 18, 17 ). 

LT, 

DTD2, 

DXT2IN, 

DYINV, 

DZ, 

0ZT2IN, 

KCUT, 

IMAXMl, 

KMAX, 

NMAX, 

FUNKAP 

PDEPTH. 

PWIOTH 
SYY< 17), 

Y< 17 ), 


NRIV, 
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40 Q 
CSl 

1 PHASE 1. 

PHASE2* 

RDEPTH(4> * 

2 RM0MAF<4). 

RWIDTH<4) ♦ 

UAVG. 

3 UVARl. 

UVAR2 


COMMON/RYTE/ 
1 LABELO 

10* 

LABELI. 


COWMON/STEP/ 

MN« 

MO. 


1 NBAR • 

NWRITE* 

XSTEP 


COMMON/TIDE/ 

PH5EMP* 

PHSEPHf 


1 TAMPMP, 

TAMPPH* 

TAVGMP. 


2 TAVGPH* 

THGTMP* 

THGTPH 


COMMON/TUNE/ 
1 AVCOMP 

ACCEL. 

ARTVSC. 


COMMON/TURB/ 

CDIF* 

CRICH. 


1 CVIS^ 

DIFFUS* 

Vise 


COMMON/UNI TS/ 

BETA. 

BETAD2, 


1 FETCH, 

GRAV* 

HREF. 


2 OMEGA, 

3 VREF, 

PI * 
YMAX 

TREF. 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


^LTAPE = 1 IF A RUN IS TO BE CONTINUED WITH STARTING DATA READ 
FROM TAPE OR FROM PREVIOUS CASE* 

♦UTAPE = O IF STARTING DATA IS TO BE GENERATED INTERNALLY* 

♦LTAPE IF LAST CASE HAS BEEN RUN* 

+LABELI = 0 IF STARTING DATA GENERATED INTERNALLY OR LEFT FROM . 
PREVIOUS CASE. LABELI IS THE LABEL NUMBER OF THE DATA SET USED 
FOR STARTING DATA AND TO WHICH RESULTS ARE WRITTEN* OTHERWISE* 

♦ LABELO IS THE LABEL NUMBER OF THE DATA SET TO WHICH DUPLICATE 
COPY OF LAST RESULTS FOR A GIVEN CASE ARE WRITTEN# 

READIER-. 1000) LTAPE* LABELI* LABELO 
IF(LTAPE*EQ*-l } STOP 
IF<LAB£LI*EQ*0) GO TO 5 
10 = LT 

IF(LTAPEoEQ*l ) CALL REED 
CONTINUE 


C 

C «IMAX* JMAX* KMAX ARE THE MAXIMUM NUMBER OF GRID POINTS IN THE 

C * X* Y* Z DIRECTIONS* EXCLUDING THE SHIP CHANNEL* 

C *NBAR IS THE NUMBER OF TIME STEPS BETWEEN OUTPUTS OF DESCRIPTIVE 

C PARAMETERS. N8AR MAY BE ADJUSTED AS REQUIRED AS THE CALCULA- 

C TION PROCEEDS. 

C ❖NMAX IS THE MAXIMUM NUMBER OF TIME STEPS TO BE TAKEN* 

C <«NWRITE IS THE NUMBER OF TIME STEPS BETWEEN OUTPUTS OF FLOW 

C FIELD variables AND GEOMETRY TO TAPE. IT SHOULD DIVIDE NMAX 

C AN INTEGER NUMBER OF TIMES. 

C 
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READ{ LR. 1000) IMAX, JMAX, KMAX, NEAR, NMAX» NWRITE 

♦CUTPT IS THE HEIGHT IN METERS OF THE SALT WEDGE AT THE MAIN 
PASS RELATIVE TO THE 2=0 REFERENCE PLANE. 

♦DTREAL IS THE SIZE OF THE TIME STEP IN SECONDS, 

♦FETCH IS THE LENGTH IN KILOMETERS FROM NORTH TO SOUTH, 

♦HREF IS THE LOCATION IN METERS OF THE 2=0 REFERENCE PLANE 
BELOW MEAN SEA LEVEL. Z = 0 IS SLIGHTLY BELOW THE DEEPEST 
POINT IN THE BAY EXCLUDING THE SHIP CHANNEL. 

★period is time in hours of A COMPLETE TIDE CYCLE. 

★PHI IS THE AVERAGE LATITUDE IN DEGREES OF THE BAY. 

♦SIGMAT SPECIFIES THE DENSITY OF SEA WATER RELATIVE TO THAT OF 
FRESH WATER, 1.0 GM/CC. SIGMAT = (SEA WATER DENS ITY-1 ,0 )*1000 . 

REAOILR, 1001 ) CUTPT, DTREAL, FETCH, HREF, PERIOD, PHI, SIGMAT 

★YMAX IS SLIGHTLY GREATER THAN THE MAXIMUM DISTANCE IN METERS 
FROM THE SHIP CHANNEL TO THE EAST BANK. 

READILR, 1001 > YMAX 

★PHSEMP, PHSEPH ARE PHASE LAGS IN HOURS AT THE PASS AUX HERONS 
AND MAIN PASS, RESPECTIVELY. 

♦ TA-VGMP, TAVGPH ARE AVERAGE TIDE HEIGHTS IN CENTIMETERS RELATIVE 
TO MEAN SEA LEVEL* 

★TAMPMP. TAMPPH are TIDAL AMPLITUDES IN CENTIMETERS. 

READILR, 1001 ) PHSEMP, PHSEPH, TAMPMP, TAMPPH, TAVGMP, TAVGPH 

★CD IF IS THE COEFFICIENT OF EDDY DIFFUSION IN SQUARE METERS 
PER SECOND. 

♦CVIS IS THE COEFFICIENT OF EDDY VISCOSITY IN SQUARE METERS 
PER SECOND. 

★ROUGH IS THE DIAMETER IN MILLIMETERS OF THE AVERAGE PARTICLE 
WHICH GENERATES TURBULENCE ON THE BOTTOM. 

★VONKAR IS THE VON KARMAN UNIVERSAL BOUNDARY LAYER CONSTANT. 

REAOtLR, 1001 ) CDIF, CVIS, ROUGH, VONKAR 

★JWAG IS THE VALUE OF THE INDEX J CORRESPONDING TO THE Y-COORO- 
INATE LINE ALONG WHICH THE SHIP CHANNEL LIES, 

★KMXC IS THE MAXIMUM NUMBER OF GRID POINTS IN THE Z-OIRECTION 
IN the SHIP-CHANNEL, 

READILR , 1000) JWAG* KMXC 

★CDEPTH IS THE DEPTH IN METERS OF THE SHIP CHANNEL. 
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4=CWIDTH IS THE WIDTH IN METERS OF THE SHIP CHANNEL.* 

READILR* 1001 ) CDEPTH* CWIDTH 

♦DIRCTN* DIRCTS ARE THE DIRECTIONS IN DEGREES TO WHICH THE WIND 

IS blowing in the north and south portions of the bay. angles 

ARE MEASURED IN AN ANTICLOCKWISE DIRECTION FROM THE POSITIVE 
X-AXIS* 

♦FETCHN* FETCHS ARE THE NORTH AND SOUTH LIMITS IN KILOMETERS 
OF A REGION SEPARATING THE REGIONS ABOVE* 

♦VWINDN* VWINDS ARE THE WIND VELOCITIES IN CM/SEC lO METERS 
ABOVE THE WATER SURFACE. 

READIER* 1001) DIRCTN* DIRCTS* FETCHN* FETCHS, VWINDN, VWINDS 

>t!ACCEL IS AN ACCELERATION FACTOR EXPEDITING CONVERGENCE OF THE 
SALT CONSERVATION EQUATION. IT IS NORMALLY UNITY. 

♦ARTVSC IS AN ARTIFICIAL VISCOSITY PARAMETER IN THE KINEMATIC 
EQUATION FOR THE FREE SURFACE. IT NORMALLY VARIES FROM 0.5 TO 

1 * 0 . 

*YK2 IS A COORDINATE STRETCHING PARAMETER IN THE Y-DIRECTION. 
SEE SUBROUTINE RUBBER FOR DEFINITIONS* ALWAYS MAKE YK2 LESS 
THAN PI/2.0. 

READIER* 1001 ) ACCEL. ARTVSC. YK2 

#NRIV IS THE NUMBER OF RIVERS DEBOUCHING AT THE NORTH SHORE OF 
THE BAY* 

*JRIV ARE THE INDEX VALUES OF THE Y COORDINATES OF RIVER MOUTH 

locations. 

♦RDEPTH ARE the RIVER DEPTHS IN METERS* 

♦RWIDTH ARE THE RIVER WIDTHS IN METERS. 

READILR , 1000) NR I V 
DO 10 NN = 1, NR IV 

READILR. 1001 ) RIV. ROEPTHINN), RWIDTHINN) 

10 JRIVINN) = IFIXIRIV + 0.5) 

• ’♦PHASEl, PHASE2 ARE PHASE LAGS IN HOURS IN A TRIGONOMETRIC 

FUNCTION APPROXIMATING THE TIME VARIATION OF THE RIVER DIS- 
CHARGE VELOCITIES. 

♦UAVG IS THE TIME AVERAGE DISCHARGE VELOCITY IN METER/SECOND, 
«UVAR1* UVAR2 ARE AMPLITUDES IN METER/SECOND OF THE PERIODIC 
TERMS. 

READILR. 1001 ) PHASEl, PHASE2, UAVG, UVARi, UVAR2 
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C ♦IPASS IS THE INDEX VALUE OF THE X-CCORD I N ATE OF THE LOCATION 

C OF THE PASS AUX HERONS ON THE WESTERN SHORE. 

C *PDEPTH IS THE PASS DEPTH IN METERS, 

C *PSALT IS THE SALINITY IN THE MISSISSIPPI SOUND, 

C ♦PWIOTH IS THE PASS WIDTH IN METERS. 

C 

READILR, 1001 ) PASS. PDEPTH. PSALT* PWIDTH 
IPASS = IFIXIPASS * 0,5) 

G 

C SKIP READING CARDS SPECIFYING BAY GEOMETRY IF CONTINUING A RUN, 

C 

IF<LTAPE,EO. 1 } GO TO 22 
C 

C READ UMAX DATA CARDS TO SPECIFY THE GEOMETRY OF THE BAY AS 

C FOLLOWSO 

C 1. THE DISTANCE SOUTH OF THE NORTHERN BOUNDARY OF THE BAY, 

C BEGIN WITH 0,0 £ END WITH FETCH, 

C 2, THE DISTANCE FROM THE SHIP CHANNEL TO THE WESTERN BOUNDARY 

C OF THE SAY (NOTE. ,, ALWAYS NEGATIVE). 

C 3, THE DISTANCE FROM THE SHIP CHANNEL TO THE EASTERN BOUNDARY 

C OF THE BAY. 

C ALL DISTANCES ARE IN NAUTICAL MILES, 

C 

READILR, 1000) UMAX 
DO 20 II = 1. UMAX 

REAO(LR, 1001 ) SOUTHl , WESTl . EASTl 
SOUTH(II) = SOUTHl * 1852, 

WESTdl) = WESTl # 1852. 

20 EAST(II) = EASTl ♦ 1852. 

C 

C INPUT CONSTANTS OF POLYNOMIAL FITS TO BAY AND SHIP CHANNEL 

C BOTTOMS, THESE BOUNDARIES ARE SPECIFIED RELATIVE TO THE Z = 0 

C REFERENCE PLANE. CONSTANTS HAVE BEEN NORMALIZED WITH HREF, 

C 

READILR, 1018) B1 , 62, B3 » B4 , B5, 66 
READ! LR, 1018) B7, B8. B9, BIO 
READ(LR, 1018) BB 1 , BB2, BB3 , BB4^ 

22 CONTINUE 
C 

C PRINT INPUT DATA TO IDENTIFY CASE BEING RUN, 

C 

WRITE(LW,1002) LTAPE, LA8ELI , LABELG 

WRITE(LW,1003) IMAX, UMAX. KMAX,- N8AR, NMAX , NWRITE 

WRITEILW, 1004) CUTPT, DTREAL, FETCH, HREF, PERIOD, PHI, SIGMAT, 

I YMAX 

WRITE(LW,1023) PHSEMP. PHSEPH, TAMPMP* TAMPPH, TAVGMP, TAVGPH 
WR1TE(LW,1005) CDIF, CVIS, ROUGH, VONKAR 
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WRITE (LW, 1006) JWA6» KKXC 
WRITE(LW.I007) COEPTH, CWIDTH 

WRITE(LW.1008) OIRCTN* DIRCTS, FETCHN. FETCHS. VWINDN-. VWINDS 
WRITEILW.l 009) ACCEL« ARTVSC* YK2 

WRITE<LW*1010) <NN. JRIV(NN). RDEPTHINN). RWIDTH(NN). NN = 1. 

I NRIV) 

WRITEILW. 1024) PHASEl, PHASE2, UAVG« UVARl, UVAR2 
WRITE (LW« 1 01 1 ) IPASS, PDEPTH* PSALT* PWIDTH 

SKIP PRINTING BAY GEOMETRY IF CONTINUING A RUN. 

IFILTAPE.EQ. I ) GO TO 24 
WRITE (UW. I 012) 

WRITE(LW*1013) (II* SOUTH(II). WEST(II)* EASTCIl), II = 1. UMAX) 
WRITE(LW*1019) Bl* B2 . 83* 84* B5 * B6 » 87* B8 » B9* 610. 

1 B81* BB2. BB3* B84 

24 CONTINUE 

calculate constants and CONVERT UNITS. 

IMAXMl = IMAX - 1 
JMAXMl = JMAX - 1 
KMAXMl = KMAX - 1 
KMAXM2 = KMAX - 2 
KMXCMl = KMXC - 1 
KMXCM2 = KMXC - 2 
VREF = SQRTIGRAV ♦ HREF) 

TREF = HREF / VREF 
CUTPT = CUTPT / HREF 
DT = OTREAL / TREF 

DTD2 = 0.5 4 DT 
FETCH = FETCH 4 1000.0 / HREF 

PERIOD - PERIOD 4 3600.0 / TREF 
PERIDI = 2.0 4 PI / PERIOD 
PHI = PHI 4 PI / 180.0 

PHSEMP = PHSEMP 4 3600.0 / TREF 
PHSEPH “ PHSEPH 4 3600.0 / TREF 
TAMPMP = 0.01 4 TAMPMP / HREF 
TAMPPH = 0.01 4 TAMPPH / HREF 
TAVGMP - O.Ol 4 TAVGMP / HREF 
TAVGPH = 0.01 4 TAVGPH / HREF 
YMAX = YMAX 4 1000.0 / HREF 
ARTVSC = ARTVSC / (HREF 4 VREF) 

CDIF = CDIF / (HREF 4 VREF) 

CVIS = CVIS / (HREF 4 VREF) 

ROUGH = 0.001 4 ROUGH / HREF 
CDEPTH = COEPTH'/ HREF 
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CWIDTH = CWIDTH / HREF 
DIRCTN == OIRCTN. ♦ PI / 180*0 
DIRCTS = DIRCTS * PI / 180*0 
FETCHN - FETCHN ❖ 1000.0 / HREF 
FETCHS - FETCHS ♦ 1000.0 / HREF 
DO 30 NN ^ 1. NR IV 
RDEPTH(NN) = RDEPTH(NN) / HREF 
30 RWIOTH(NN) = RWIDTH<NN> / HREF 
PHASE! = PHASE 1 « 3600. / TREF 

PHASE2 PHASE2 ^ 3600* / TREF 
OAVG UAVG / VREF 

UVARl = UVARl / VREF 
UVAR2 = UVAR2 / VREF 
PDEPTH == PDEPTH / HREF 
PWIOTH = PWIDTH / HREF 

GENERATE GRID SYSTEM. 

CALL RUBBER ' 

SKIP CALCULATING BOUNDARIES IF CONTINUING A RUN. 

IF(LTAPE.EQ. I ) GO TO 137 
DO 40 II 1 . UMAX 
SOUTH! in = SOUTH(II) / HREF 
WEST! II) = WESTIII) / HREF 
40 EAST(U) = EAST(II) / HREF 

ESTABLISH BAY LIMITS FOR GRID SYSTEM. 

I = 1 

II =1 

50 J JWAG 

60 J =J+1- 

IF( Y( J) .LT.EAST! I I > ) GO TC 60 
JEASTCI ) = J ^ 1 
J == JWAG 

70 J = J -- 1 

ll=‘( Y< J).GT.WEST(II ) ) GO TC 70 
JWEST(I) = J + 1 
IF{I.NE.U GO TO 80 

I = imax 

ri = IXMAX 

GO TO 50 

80 DO 120 I ^ 2. IMAXMl 

II - 1 

90 II - ll ^ I 
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IF(SOUTH<I I ) .LT. X(l) ) GO TO 90 

WATE = (X(I) - SOUTH( I I-l ) )/(S0UTH( I n - SOUTH(II-l)) 

YEAST = EAST(II) * WATE + EAST(II-i) * (1*0 - WATE) 

VWeST = WEST(II) * WATE + WEST(II-l) * (1.0 - WATE) 

J = JWAG 

100 J = J 1 

IF(Y( J) .LT. YEAST) GO TO 100 
JEASTC I > = J - 1 
J = JWAG 

110 J = J - 1 

IF(Y( J) .GT.YWEST) GO TO 110 
120 JWESTd) = J + 1 
WRITE(LW,1014) 

WB1TE(UW,1015> (I. JWEST(I). JEASTCI). 1=1. IMAX) 

GENERATE BOTTOM CONFIGURATION. 

CALL BOTTOMCBl ,B2 »B3 .84 . B5 . B6 .87 . 88 * 89 • BIO. BBl » 8B2. BBS. BB4 > 
WRITE (LW.l 016) 

DO 130 I = 1. IMAX 
DO 130 J = 1. JMAX 
XREAL = XU) * HREF 

YREAL = Y(J) * HREF 

ZBREAL = ZB(I.J) 4 HREF 

130 WRITE (LW.l 01 7) I. J. KFLCORU.J). XREAL, YREAL, ZBREAL 
WRIT£(LW.1021 ) 

DO 1-35 1 = 1. IMAX 
XREAL = X(I) * HREF 
ZBREAL = ZBC(I) * HREF 

135 WRITE (LW.l 022) I. KFLORC ( 1 ) . XREAL. ZBREAL 
137 CONTINUE 

COMPLETE CALCULATION OF CONSTANTS AND WIND SHEAR FORCES. 

BETA = 0.001 4 SIGMAT 

BETAD2 = O.S ♦ BETA 

CRICH = -2.0 * BETA # OZ 

F = 2.0 4 OMEGA * SIN(PHl) * TREF 

FUNLNI = ALOG( 0.2/ROUGH) 

■ FUNKAP = VONKAR *3.5 
FWINDN = 1.64E-4 ♦ ( VWINDN441 .333) 

FWINOS = 1.64E-4 « ( V W1 ND S* ’►I .333 ) 

CXN = .COS(DIRCTN) 4 FWINDN 

CYN = SIN(DIRCTN-) * FWINON 

CXS = COS(DIRCTS) * FWINDS 

CVS = SIN(DIRCTS) ♦ FWINDS 

WRITE(LW,1020) FWINDN, CXN, CYN 
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WRITE(I.W»1020} FWINDS. CXS* CVS 
PREFIX = 1.0 / ((100. 0 # VREF)**2) 

CXN = PREFIX * CXN 

CVN = PREFIX * CYN 

CXS = PREFIX « CXS 

CVS =t PREFIX * CVS 

DO 149 I = 1. IMAX 
XI = X( I ) 

IF(X1 .GT.FETCHN) GO TO 141 
CX = CXN 

CY = CYN ■ 

GO TO 144 

141 IF(X1 .LT.FETCHS) GO TO 143 
CX = CXS 

CY = CYS ■ 

GO TO 144 

143 CX - (rXl - FETCHN) / (FETCHS - FETCHN) ♦ (CXS - CXN) + CXN 

CY = (XI - FETCHN) / (FETCHS - FETCHN) t (CYS - CYN) + CYN 

144 DO 148 J = 1. JMAX 

FWINDXI I . J) = CX 

148 FWINDY(I.J) = CY 

149 CONTINUE 

Cl = CUTPT ./ DZ 

IF(C1 .LT.0.0) GO TO ISO 
KCUT = IFIX(C1 + 0.5) 

GO TO 160 

150 KCUT = IFIX(C1 - 0.5) 

160 DO 170 NN' = 1. NRIV 

J - JRIV(NN) ■ 

AREAI = RWIDTH(NN) ♦ RDEPTH(KN) 

AREA2 = 0.5 4 (Y(J+1) - Y(J-l)) 4 (1.0 - ZS(1.J>) 

RATIO = AREA2 / AREAI 
170 RMOMAF(NN) = RATIO 

PMOMAF = 0.5 4 (X(IPASS+1) - X(IPASS-D) / PWIDTH' 

IF LTAPE = 0. make COLD START BY CALLING SUBROUTINE INITAL. 

IF(LTAPE.EQ.O) CALL INITAL 
DO 190 1=1. IMAX 
DO 180 J = 1. JMAX 
SURF(MO. I. J)= SURF (MN.I ,.J) 

DO 180 K = 1. KMAX 
U(M0.I,J,K) = U(MNtI,J,K) 

V(M0.1,J,K) = VIMN.I.J.K) 

SIMO.I.J.K) = S(MN,I.J,K) 

180 CONTINUE 

DO 190 K = 1. KMXC 
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UC(MO*I.K) = UCCMN.I.K) 

SC(MO«I«K) = SC(MN»I«K) 

190 CONTINUE 

IFILABELI.EQ.O.ANO.LTAPE^EQ. 1) GO TO 200 
lO r= LT 

CALL RITE3 
200 CONTINUE 
RETURN 

1000 FORMAT(ailO) 

1001 FORMAT! 9F1 0«5) 

1002 FORMAT(/*5X, »LTAPE = • , 1 4 , / ,5X , • LABEL I = • . I 4 , / . 5X . • LA8EL0 = •, 

1 14) 

1003 FORMAT!/. 5X* • IMAX = ♦ . 1 4 . / .5X . • JK AX = ' « I 4 . / * 5X . • KM AX = ». 

1 I4./.5X. *NBAR = * ,14 »/.5X. *NMAX = • , 14 ,/ , 5X , • NWR ITE = *,I4) 

1004 FORMAT! /,SX, »CUTPT = '.FIO-A,* M« ,/,SX, • DTREAL = *,F10*4,» SEC«, 

1 /,5X, 'FETCH = *,F10.4,» KM • ,/ ,SX ♦ ' HREF = ',F10.4.' M',/,5X, 

2 'PERIOD = '.F10.4,' HR ' , / ,5X . • PH I = '.F10.4,' 0EG',/,5X, 

3 'SIGMAT = '.FIO.A./.SX, 'YMAX = '.FIO.A,' KM') 

1005 FORMAT!/,SX, 'COIF = '.FIO.A,' M4*2/SEC • ./ ,5X , ' CVIS = '.F10.4. 

1 • M*42/3EC ,/,5X, 'ROUGH = '.F10.4,' MM » ,/ , 3X » ' VONKAR = «,F'l0.4) 

1006 FORMAT! /.SX, 'JWAG = • , I 4 , / ,5X , ' K«XC = ',14) 

1007 FORMAT! /.5X. 'CDEPTH = '.F10.4.' M ' ,/ , 5X , • CW I OTH = '.F10.4,' M' > 

1008 FORMAT!/, 5X, 'DIRCTN = »,F10.4,' DEG, DIRCTS = ',F10.4,' DEG',/ 

1»SX,»FETCHN = *,F10,4,' KM, FETCHS = *,FI0,4,' KM',/ 

2,5X,'VWINDN = ',F10,4,' CM/SEC, VWINDS = '.FlO.A,' CM/SEC) 

1009 F0RMAT(/,5X, 'ACCEL = • ,F1 0 ,4 ,/ ,5X . ' ARTVSC = ' F 1 0 ,4 , / , 5X , 

1 *YK2 = •♦F10.4) 

1010 F0RMAT!/,5X, 'RIVER '^,11,' J = »,I2,' DEPTH = ',F5.1, 

1 ' M WIDTH = ',F6«0,' M') 

1011 FORMAT!/, 5X, 'IPASS = ♦ , 14 , /,5X , • PDEPTH = ',F10.4,' M»,/,SX, 

1 'PSALT = ',F10,4,/,5X, 'PWIDTH = ',F10,4,« M« ) 

1012 FORMAT!/, 15X, 'II ',15X, 'SOUTH CM ) • , I 5X , ♦ WEST ( M > ' , 15X , • EAST (M)',/) 

1013 FORMAT! !13X,I4,13X,1PE13.6,2(10X,E13.6))) 

1014 FORMAT! /,15X, *I • ,15X, ' JWEST' ,15X, * JEAST* ) 

1015 FORMA T!13X,13,16X,I3,1TX,13) 

1016 FORMAT! /, lOX, *I • ,1 OX, ' J' , 1 OX , • KFLOOR! I , J) • , ISX, 'XREAL' , 14X, 

1 'YREAL ' ,1SX, 'ZBREAL* ,/) 

1017 FORMAT! SX, I3,8X, I3,10X,I4,20X,lPE13,6,7X,ei3,6,5X,E13.6) 

1018 FORMAT!6E12,0) 

1019 FORMAT!//, SX, 'B1 THRU BIO AND BQl THRU BB4 ARE AS FOLLOWSO*,/, 

I 5X, 1P5E16.6,/,!SX,5E16«6) ) 

1020 FORMA T( /,5X, 'FWIND = ',-lPEl2.5,» DYNES/CM4=S=2 , FWINDX = ',E12,5, 

I ' DYNES/CM*42, F, WINDY = ',E12,5,« DYNES/CM*#2 ' ) 

1021 FORMAT! / . 1 OX, ' I ' , 1 IX, 'KFLORC! I ) • ,16Xr* XREAL' , 1 4X , • Z BCREAL ' , / >, 

1022 FORMAT! 8X, I3,10X,I4,20X,1PE13.6,5X,E13,6) 

1023 FORMA T! /,5X, 'PHSEMP = ',F10.4,' HR, PHSEPH = «,F10,4,' HR', 
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1 /,5X»*TAMPMP = '.FIO.A** C(^, TAMPPH = •♦FIO.4,* CM*»/.5X. 

2 ’TAVGMP = '.FIO.A** CM » TAVGPH = ’.FIO-A,* CM • ) 

1024 FORMAT< /.5X, ‘PHASEl = *,F10.4,» HR • ♦/ » 5X , • PHAS62 = •*F10.4.* 

1 /*5X,*UAVG' = •♦F10*4.« M/S • * / .5X • * UVAR 1 = ',F10.4.* M/S* 

2 /»5X,*UVAR2 = •»F10.4*» M/S*) 

END 
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SUBROUTINE PRESS 


CALCULATE PRESSURE FIELD USING STATIC FLUID APPROX IMAT ION , 
INTEGRATE FROM FREE .SURFACE DOWN TO BAY BOTTOM. NOTE THAT P IS 
THE DEVIATION FROM THE HYDROSTATIC PRESSURE FOR FRESH WATER 
HAVING A FREE SURFACE AT MEAN SEA LEVEL. 


LOGICAL 

ISTEP, 

KEYOUT 

DOUBLE PRECISION 

SURF(2,18,17), 

SURFC( 18 ) 

COMMON/BNKCRD/ 

EAST(22) , 

I IMAX, 

1 JE . 

JEAST(22) , 

JW 9 

2 JWESTI22). 

S0UTH(22) , 

WEST (22 ) 

COMMON/CHNNEL/ 

COEPTH, 

CWIOTH 5 

1 JWAG. 

KMXC , 

KMXCMX* 

2 KMXCM2 

COMMON/FLQOR/ 

KFLC0R(18,I7) • 

ZB( 18,17) 

COMMON/FLOORC/ 

KFLORC(ie), 

2QC( le ) 

COMMON/FLOWl/ 

P(18,17,08) , 

S(2, 18,17.08 ) 

1 0(2,18.17,08), 

V(2,18,17,08) , 

W(18,17,08 ) 

COMMON/FLO W 2 / 

SURF, 

DHDT( 18, 17 ), 

1 DUOT( 18, 1 7.08) , 

DVDT( 18, 17,08) 


COMMON/FLO WCl/ 

pens, 20), 

SCi2, 18,20 ). 

1 UC(2, 18,20), 

we (18,20) 


COMMON/FLQWC2/ 

SURFC, 

DMCOT< 18 >, 

1 DUCDT(18,20) 

COMMON/FOR TNO/ 

LR* 

LT 5 

1 LW 



COMMON/GRID/. 

DT, 

0TD2» 

X ox» 

DXINV* 

OXT 2 IN 0 

2 OXlUSQi 

DY5 

OYINV* 

3 DYT2IN# 

DYIN5Q * 

DZ» 

4 02035 

OZINV 5 

D2T2IN, 

5 D2INSQ 

COMMON/LIM I TS/ 

IMAX 5 

IMAXMI 5 

1 JMAX5 

JMAXI^l ♦ 

KMAX 5 

2 KMAXMlt 

KMAXM2 5 

NMAX 5 

3 KEYOUT 

COMMON/INDEX/ 

I , 

J 5 

1 ' K, 

N 


COMMON/RIVERS/ 

JRIV(4) 

NRIV* 

1 PHASE 1. . 

.PHASE2 , 

RD£PTH(4)5 

2 RM0MAF(4), 

RWIDTH(4) • 

UAVG* 

3 UVARl, 

UVAR2 


COMMON/STEP/ 

MN, 

MOo 

1 NBAR. 

NWRITE. 

ISTEP 

COMMON/UNITS/ 

BETA, 

BETAD2. 

1 FETCH, 

GRAV, 

HREF, 
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2 OMEGA* PI* TREFf 

3 VREF, VMAX 

TEST = 3.0 ♦ DZ 

DO 10 I = 1. I MAX 
JW = JWEST(I) 

JE = JEASTd ) 

DO 10 J = JW. JE 
KBOT = KFLOOR( I . J) 

IF(KBOT.GT.KMAX) GO TO 10 
SK = S(MN.I . J.KMAX) 

RHO = 1.0 + BETA * SK 

PK = RHO * SURF(MN*I*J) 

PI 1. J.KMAX) = PK 
KKMAX ~ KMAX - KBOT 
DO 5 KK = 1. KKMAX 
K = KMAX - KK 

SKP 1 = SK 

PKPl = PK 

SK = SIMN*I.J*K) 

DELRHO = BETAD2 * ( SK + SKPl) 

PK = PKPl + DELRHO * DZ 

P( I. J.K) = PK 

DETERMINE IF PRESSURE HAS DIVERGED. 

IFIABSIPK) .GT.TEST) GO TO 100 ‘ 

5 CONTINUE 
10 CONTINUE 


DO 20 

I 

= 1, I MAX 


KBOT 

n 

KFLORCI I > 


SK 


SCIMN.r ,KMXC) 


RHO 


1.0 + BETA ♦ SK 


PK 

= 

RHO * SURFC(I) 


PC II, 

KMXC) = PK 


KKMAX 


KMXC - KBOT 


DO 20 

KK 

= 1 , KKMAX 


K 


KMXC - KK 


SKPl 

= 

SK 


PKPl 

r: 

PK 


SK 

zz 

SC<MN# I ,K) 


DELRHO = 

8ETAD2 « (SK 

SKPl ) 

PK 

— 

PKPl + DELRHO ♦ 

DZ 

PCI I , 

K) 

PK 



DETERMINE. IF PRESSURE HAS DIVERGED. 
IF (ABSIPK) .GT.TEST) GO TO 110 
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20 CONTINUE 
RETURN 

ICO WRITE(LW,1000) N* I* J« K 
GO TO 120 

110 WRITECLW.lOOl ) N* 1» K 
12C KEYOUT = .TRUE. 

■ RETURN 
C 

loco FORMAT! /.SX, ‘PRESSURE DIVERGED AT N = I 

1 14* • * K = • . 14) 

1001 FORMAT! /.5X. ‘PRESSURE DIVERGED AT N = ‘,14, ‘, I 
1 14) 

END 


= « , 14, » , J = * , 
= • » 14, • , K = ‘ , 
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SUBROUTINE PRNT 

OUTPUT FLOW FIELD VARIABLES TO LINE PRINTER. 


LOGICAL 

ISTEP, 

KEYOUT 

DIMENSION 

SURFl (18) 


DOUBLE PRECISION 

SURF (2,18,17), 

SURFC( 18 ) 

COMMON/BARS/ 

PTCTIN, 

SOAR, 

1 UBAR » 

VBAR 


COMMON/BNKCRD/ 

EAST(22) « 

I IMAX, 

1 JE. 

JEAST(22) , 

JW* 

2 JWEST(22), 

S0UTH(22) , 

WEST! 22) 

COMMON/CHNNEL/ 

CDEPTH, 

CWIDTH, 

1 JWAG, 

KMXC, 

KMXCMl , 

2 KMXCM2 

COMMON/FLOOR/ 

KFLCORd 8.17) , 

ZB< 18, 17 ) 

COMMON/FLOORC/ 

KFLORCU8) , 

ZBC( 18 ) 

COMMON /FLO Wl/ 

P(18, 17,08) , 

5(2,18,17,0 

1 U<2. 18. 17,08)., 

V(2, 13, 17,08) , 

W(18, 17*08) 

COMMON/FLOW2/ 

SURF , 

DH0T( 18, 17 ) 

1 DUDTl 18, 17,08) . 

DVDT(18,17,08) 


COMMON/FLOWCl/ 

PC(18,20), 

SC(2, 18,20) 

1 UC(2, 18,20), 

WC( 18,20) 


COMMON/FLO WC2/ 

SURFC, 

DHCDTl 18), 

1 OUCDTI 18,20) 



COMMON/FOR TNG/ 

LR, 

LT, 

I LW . 

COMMON/IMOEX/ 

I » 


1 

N 


COMMON/LIMITS/ 

IMAX^ 

IMAXMl, 

1 JMAX» 

JI^AXWl « 

KMAX, 

2 KMAXMl, 

KI^AXM2» 

NMAX, 

3 KEYOUT 

COMMON/PULL/ 

SY( 17) , 

SYY( 17), 

1 TIME, 

X-( 1 8 ) , 

Y(17>, 

2 YK2, 

2 (8) 


COMMONySTEP/ 

MN, 

MO, 

1 N8AR, 

NWRI TE, 

ISTEP 

c'ommqn/uni ts/ 

BETA , 

BETAD2, 

1 FETCH, 

GRAV, 

HREF, 

2 OMEGA . 

PI , 

TREF,. 

3 VREF, 

YMAX 



CTM = TREF / 3600. 

CS0 = PTCTIN / TREF 

CUB = CSB ♦ VREF 

CSH = HREF ♦ 100. 


360 



uuuu uuu 


CPR = GRAV ♦ HREF ♦ 0.01 

KMAXPl = KMAX + 1 

KMXCPl = KMXC + I 

JMAXPl = JMAX + I 

TIMERL = TIME ♦ CTM 

SBAR - S8AR # CS8 

UBAR = UBAR * CUB 

VBAR = VBAR * CUB 

WR ITEILW, IGOO) N. TIMERL. SBAR. UBAR. VBAR 
WRITE (LW.l 001 J 
DO 10 I = 1. I MAX 
JW = JWESTCI ) 

JE = JEASTI I ) 

DO 10 J = JW. JE 
WRITE(LW,1002) 

KBOT = KFLOOR(I.J) 

IF<KBOT.GT.KMAX) GO TO 10 
KKMAX = KMAXPl - KBOT 
DO 5 KK = 1. KKMAX 
K - KMAXPl - KK 

UNEW = UIMN.I.J.K) ♦ VREF 

VNEW = V(MN.I.J.K) * VREF 

WNEW ,= Wd.J.K) ♦ VREF 

SNEW = S(MN.I.J.K) 

PNEW = P(I.J.K) « CPR 

VELOCITIES ARE IN M/S. SALINITIES ARE GULF WATER FRACT IONS. 

AND PRESSURES ARE IN BARS. 

WRITE(LW,1003> UNEW. VNEW. WNEW. SNEW. PNEW. I, J. K 
5 CONTINUE 
10 CONTINUE 

WRITE(LW.1004> 

DO 20 I = 1, I MAX 
WRITE(LW,1002) 

KKMXC = KMXCPl - KFLORC ( I ) 

00 20 KK = 1. KKMXC 

K = KMXCPl - KK 

UNEW = UC(MN,I,K) * VREF 

WNEW - WC(I..K) * VREF 

SNEW = SCIMN.r.K) 

PNEW = PC(I.K) * CPR 

WRITE ILW. 10051 UNEW. WNEW. SNEW, PNEW. I, K 
20 CONTINUE 

GENERATE SURFACE HEIGHT MAP. 
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WRITE(LW.1006) 

WRITE(LW*1007) (I, I = 

DO 40 JJ = !• JMAX 
J = JMAXPI - JJ 

DO 30 I = I, I MAX 
30 SURFKl) = SURF(MN*I*J) ♦ CSH 

WRITE<LW, 1 008) J* {SURFl(I)* I = IMAX) 

40 continue 

WRITE(LW.1009) 

DO 50 I = 1. IMAX 
50 SURFKl) = SURFC(I) * CSH 

WRITE(LW,1008) . JWAG* (SURFl(I), 1=1* IMAX) 

RETURN 

1000 FORMAT{5X** N = ‘.IS**, TIME = •,F6*2.« HR.* SBAR = ‘.IPEia.A. 

1», UBAR = **E12*4*** VBAR = ‘.E12.4) 

1001 FORMAT<//,7X» *U»M/S V.V/S W.MXS FRAC G W P.BAR 

II J K**/) 

10 02 FORMAT!/) 

1003 FORMAT! 5X. 1PE9 *2 *4 ! 2X *E9 *2 ) *3!2X*I3) ) 

1004 FORMAT(//»7X* «UC*M/S WC.M/S FRAC G W PC*8AR I K*./) 

IOCS F0RMAT<5X, lPe9.2,3!2X.E9.2) *2(2X,I2) ) 

1006 FORMAT! ///,48X, • SURFACE HEIGHTS, CM**,//) 

1007 F0RMAT(4X, *1=^.2016*//) 

1008 FORMAT!* J= • , I 2 , 3X *F5 * 1 , 20 ! 1 X *F5* 1 ) ) 

1009 FORMAT!///*52X* 'SHIP CHANNEL**/) 

END 
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SUBROUTINE REED 


SUBROUTINE FOR I/O TO SEQUENTIAL STORAGE DEVICE, 


LOGICAL 

I STEP, 

DOUBLE PRECISION 

SURF(2,18,17) , 

COMMON/ACC T/ 

QOCT(7) , 

1 QS00TI7). 

QSNET(7) 

common/bars/ 

PTCTIN, 

1 UBAR« 

V8AR 

COMMON/BNKCRD/ 

EAST(22) , 

1 JE, 

JEAST(22 ) , 

2 JWEST(22). 

SOUTH (22) , 

COMMON/CHNNEL/ 

CDEPTH, 

1 JWAG." 

KMXC, 

2 KMXCM2 


COMMON/FLOOR/ 

KFLOOR( 18# 1 7) , 

commqn/floorc / 

KFLORC (18), 

COMMON/FLOWl / 

P (18,1 7, 08) , 

1 u(2«ia«17»08) • 

V (2 ,18 ,17,08 ) , 

COMMON/FLOW2/ 

SURF, 

1 DUOT( 18, 17*08) , 

DVOT(18,17,08> 

COMMON/FLO WCiy 

PC ( 18 ,20) , 

1 UC (2*18*20)* 

WC( 18 ,20 ) 

COMMON/FLOWC2/ 

SURFC, 

1 DUCDT(18*20) 


COMMON/FORCES/ 

. F# 

1 FWINDYt 18*17) , 

TOPUYR 

commqn/grio/ 

DT# 

1 DX. 

DXINV, 

2. DXINSQ, 

OY, 

3 DYT2IN, 

OYINSO, 

A D2D2, 

DZINV, 

5 DZINSQ 


COMMON/GULF/ 

CUTPT, 

1 perioi 


COMMON/LIMITS/ 

IMAX, 

1 JMAX* 

JMAXIW,1 # ‘ 

2 ■ KMAXMI* 

KN'AXN^2 , 

3 KEYOUT 


COMMQN/PASS/ 

IPASS, 

1 PMOMAF* 

PSALT , 

COMMON/PULL/ 

SY(17) , 

1 TIME. 

x(ia> , 

^ YK2* 

Z(8) 

commdn/pullc/ 

ZCC20) 

COMMON/RIVERS/ 

JRIV(4) , 


KEYOUT 
SURFC( 18) 
QNET(7), 

SBAR, 

I IMAX, 

JW, 

WESTC22) 

CWIDTH, 

KMXCMl, 

ZB( 18,17) 
ZBC( 18 ) 
S(2, 18, 17, 
WC ISt X7o08 
DHDT( 18, 17 

SC(2, 18, 20 

OHCDT( 18), 

FWINOXC 18, 

0T02, 

0XT2IN, 

DYINV, 

Dz; 

0ZT2IN, 

KCUT, 

IMAXMl , 
KMAX, 

NMAX, 

PDEPTH, 
PWIOTH 
SrYY( 17), 

Y( 17), 


08 ), 

), 

)f 


17), 


NRIV, 
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1 PHASE X. 

2 RM0MAP<4)* 

3 UVARl* 
COMMON/RYTE/ 

X LABEUQ 
COMMON/STEP/ 

1 NBAR, 
COMMON/TIDE/ 

1 TAMPMP^ 

2 TAVGPH# 
COMMON/TUNEy 

1 AVCOMP 
COMMON/7URB/ 

1 CVIS^ 
COMMONyUNI TSy 

1 FHTCHt . 

2 OMEGA, 

3 VREF, 


PHASE2, 
RWIDTH(4 ) 
UVAR2 
IO« 


MN, 

NWRI TEf 
PHSEMP, 
TAMPPH, 
THGTMP^ 
ACCEL, 

COIF , 
DIFFUS, 
BETA, 
GRAY, 

PI , 

YMAX 


R0EPTH(4), 

UAVG, 

LABEL I, 

MO, 

ISTEP 

PHSEPH, 

TAVGMP, 

THGTPH 

ARTVSC, 

CRICH, 

Vise 

B£tA 02 , 

HREF, 

TRHF, 


REWIND 10 
REAOIIO) ACCEL, 

1 CWIOTH, 

2 IMAX, 

3 OUM, 

4 PTCTIN, 

READ< 10 ) 

REAOt 10> 

REAO< 10) 

REAOt 10) 


ARTVSC, 
OX# 
JMAX, 
NRI V, 
TREF , 


OT, 

IPASS# 

NBAR, 

PWIOTH, 

(EASTU ) , SOUTHU ) , 
(JEASTCI), JWESFtI) 

( (KFLOORI I , J) , Z8< I , 


BETA, 

OY, 

JWAG, 

NMAX, 

VREF, 

WEST(I), 


CDEPTH, 

DZ, 

KCUT# 

NWRITE, 

YMAX 

I 


COIF# 

FETCH^ 

KMAX# 

POEPTH, 


CUTPT, 
HREF, • 
KMXC, 
PERIOI , 


evis, 

UMAX, 

DUM, 

PMOMAF, 


^ 1, UMAX) 


I 

J) 


1 » 

r == 


IMAX ) 

I, IMAX) 


(KFLORCCIl, 2BC(I), I 1 , IMAX) 


J = I , JMAX ) 


REAOt 10 ) 

( ttP(l» J»K) • 

I 

rs 

I , 

I MAX) , 

J 


1, 

JMAX )« 

K 


1 , 

KMAX ) 

REAOt lO) 

tttStMN*r*J»K>, 

1 

ss 

1 , 

IMAX) 

J 


1, 

JMAX) * 

K 


1 • 

KMAX) 

REAOt lO) 

t t (UtMN*I « J«K)-« 

I 

— 

1 , 

IMAX) , 

J 

=s 

1, 

JMAX) , 

K 

=- 

1, 

KMAX) 

REAOt lO > 

(ttVtMN.I*J,K), 

I 

— 

1 , 

I MAX) , 

J 


i , 

JMAX )» 

K 


t , 

KMAX) 

REAOt 10) 

( t t Wt J*K) • 

I 


1 , 

I MAX) , 

J 


1 , 

JMAX )-, 

K 


t. 

KMAX ) 

REAOt 10) 

t tOHDTt I ♦ J) . 

1 

ss 

1 , 

IMAX) , 

J 

j=: 

I, 

JMAX ) 






( { <OUDT( I 
( ( ( D.VOT( r 
{ ( PC ( I , K ) 
KMXC) 
(OHCDT< I ) 


SC(MN,l ,K) 


f IMAX) 
, IMAX) 
UC ( MM, 


READ(IO) ( { <DUOT( I , J,K) ♦ I ^ 1 
READ(IO) ( ( (D.VOT( r , J,K) , I = I 
READ( 10 ) 

1 K. = 1^ 

READ( 10} 

1 IMAX) 

REAOT 10) { (FWINDXC I , J) , FWINDV(I,J), 

READIIO) <SY(J), SYY(J), Y< J) , J - 1, 
I (2(K), K = 1, KMAX), <ZC<K), 

READ(IO) (JRIV(I), ROEPTH(I), 

1 PHASE U PHASE2, UAVG, UVARl , 


J = 
J 

, K ) , 


JMAX) , 
JMAX ), 


K - 
K =:• 


WC( I,K), I = 1, 


KMAX) 
KMAX) 
IMAX ), 


{OUCDT(I,K}, K ^ 1, KMXC), SURFC( I ) 


I = 1, IMAX), J = 
JMAX), (X(I), r 
K - 1 , KMXC) 

RMOMAFI I ) , RWIDTHI I >, 
UVAR2 


1 


JMAX ) ' 

IMAX ), 


I I, NRIV), 


READ! 10) PHSEMP, 
ENTRY REE02 


PHSEPH, TAMPMR, TAMPPH, TAVGMP, TAVGPH 



nnn 


REAO(IO) <QDOT(D* QNETCL). QSDQT(L)* QSNET(L). L = 1# 7}* TIME 
READ(IO) SOAR, UBAR, V0AR 

REAO<IO) ( (SURF<MN*1 . J) ■. 1 = 1* IMAX)* J = 1. JMAX) 

RETURN 

A ENTRY TO WRITE TO STORAGE DEVICE* 

ENTRY RITE 

IF(LABELI*EQ.LABEL0) end file 10 
GO TO 10 
ENTRY RITE3 
REWIND lO 
10 CONTINUE 


WRITEdO ) 

ACCEL, 

ARTVSC* 

BETA» 

COEPTHf 

COIF, 

CUTPT, 

CV IS, 

CWIDTH, 

OT, 

DX» 

DY» 

oz» 

FETCH, 

HREF, 

I IMAX, 

IMAX. 

IPASS, 

JMAXt 

JWAG t 

KCUT» 

KMAX, 

KMXC, 

LABEL I 

LABELO, 

NBAR. 

NRI V* 

NMAX, 

NWRITC, 

PDEPTH, 

PERIOI . 

pmdmaf 

ptctin. 

PWIDTH, 

TREF^ 

VREF» 

YMAX 




WRITEdO ) 

(EASTd ) 

, SOUTH(I). WEST (I). I 

= 1, UMAX) 



WRITE(IO) (JEASTd)* JWESTd). 1=1. IMAX) 

WRITEdO) ( (KFLOORd* J) «, 28(1 »J) . 1 = 1. IMAX). J = 1. JMAX) 

WRITEdO) (KFLORCd). ZBC d ) . 1 = 1. IMAX) 

WRITEdO) (dPd.J.K). I = 1. IMAX), J = I, JMAX), K = 1, KMAX) 

WRITEdO) ( ( ( S{MN.l , J.K) . . I = 1, IMAX), J = I, JMAX), K = 1, KMAX) 

WRITEdO) ( ( (UtMN.T , J.K) . 1 = 1. IMAX). J = 1. JMAX). K = 1. KMAX) 

WRITEdO) d < V(MN,I . J.K) . I = 1, IMAX), J = 1, JMAX), K = 1, KMAX) 

WRITEdO) (dWd.J.K), 1 = 1. IMAX). J = 1, JMAX). K = 1* KMAX) 

WRITEdO) {(OHOTd.J). 1 = 1, IMAX), J = 1,-JMAX) 

WRITE(IQ)( ( (DUD-Td ,J,K) , 1 = 1, IMAX), J = 1. JMAX). K = 1, KMAX) 

WRITEdO){ dOVOTd , J.K) . 1 = 1, IMAX), J = 1. JMAX), K = 1, KMAX) 

WRITEdO) dPCd.K), SC(MN,I,K), UC(MN,1,K). WC(I.K). 1=1, 

1 IMAX). K = I, KMXC) 

WRITE(IO) (OHCDTd), (DUCDT(I.K), K = 1, KMXC)-. SURFCCI), I = 1, 

I IMAX) 

WRITEdO) ( <FWINDX< I , J) , FWINOY(I.J), 1 = 1, IMAX), J = 1, JMAX) 

WRITEdO) (SY(J), SYY(J), Y{J), J = 1, JMAX), (Xd). I = 1,. IMAX), 
1 (Z(K), K = I, KMAX). (ZC(K). K = I, KMXC) 

WRITEdO) (JRIV-d), RDEPTH(I), RMQMAF(l). RWIDTH(I), I = 1, NRIV), 
I PHASEl. PHASE2, UAVG, UVARl . UVAR2 
WRITEdO) PHSEMP, PHSEPH, TAMPMP, TAMPPH, TA\(GMP. TAVGPH 
ENTRY RITE2 

WRITEdO) .(GIOOT(L)., QNET(L). QSDOT(L), OSNET(L). L = I, 7), TIME 
WRITEdO) SOAR, UBAR, VBAR 

WRITE'dOJ ( ( SURF (MN.I , J) , I = 1, IMAX), J = J JMAX) 

RETURN 

END 
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c 

c 

c 


SUBROUTINE RUBBER 


GENEPATE GRID 

SYSTEM, 

LOGICAL 

KEYOUT 

COMMON/CHNNEL/ 

COEPTH, 

1 JWAGs 

KMXC • 

2 KMXCM2 


COMMOMy^FQRTNO/ 

LR, 

1 LW 


COMMQN/GRID/ 

DT, 

1 OX» 

DXINV, 

2 DXINSQ^ 

DY, 

3 DYT2IN^ 

DYINSQ, 

4 DZ02* 

DZINV, 

5 D2INSQ 


COMMON/L IMITS/ 

IMAX, 

1 JMAX^ 

JMAXMl , 

2 KMAXMlt 

KMAXM2 , 

3 KEYOUT 


COMMON/PULL/ 

SY( 17) , 

1 TIME, 

XCld) , 

2_ YK2, 

Z(8) 

CQMMON/PtiLLC/ 

ZC(20) 

COMMON/UNITS/ * 

BETA, 

1 FETCH., 

GRAV, 

2 OMEGA-, 

PI , 

3 VREF# 

YMAX 


WRITE(LW, 1000) 

DX = FETCH / FLOAT (TWAX - 2) 

DXINV = l«0 / DX 

DXT2IN = 0,5 ♦ DXINV 

DXINSQ = DXINV * DXINV 

XI - - 1,5 =« DX 

DO 10 I = 1. I MAX 

X2 = XI + DX * FLOATd) 

X{ I ) = X2 

X)?EAL = X2 ♦ HREF 
10 WRXTE(LW,1 001 ) I. X2T, XREAL 
WRITE<LW,1002) 

DY = 1.0 / FLOAT(JMAX - JHAG) 

DVINV = I . 0 / DY 

DYT21N = 0*5 * OYINV 

DYINSQ = DYINV OYINV 

YKl = YMAX / TANCYK2) 

CONSQ = YKl * YKl 


CWIOTH* 

KMXCMl* 


DT02» 

DXT2IN. 

DYINV, 

DZ, 

DZT2IN, 

IMAXMl « 

KMAX, 

NMAX, 

SYY( 17) , 
Y(17) , 


BETAD2, 

HREF, 

TREF, 
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DO 20 J = I* JMAX 

CAPY = OY ♦ FLOAT(J - JWAG) 

Y1 = YKl * TAN(YK2 * CAPY) 

Y< J> - Y1 

YREAL = Y1 ♦ HR£F 

YSQ = Yl * Y1 

DENOM - CONSQ + YSQ 

SY(J) = YKl / (YK2 « DENOM) 

SYYCJ) = -2.0 ♦ YKl * Y1 / (YK2 ♦ DENOM ♦ DENOM) 

20 WRITE(LW,1003) J. Yl • SY(J). SYY<J), Y«EAL 
WRITE (LW. 1004) 

DZ ~ 1.0 / FLOAT(KMAX) 

0ZD2 = O.S * DZ 

D2INV = 1.0 / DZ 

DZT2IN = 0.5 * DZINV 

DZINSQ = DZINV * DZINV 

21 = 0.0 

DO 30 K = 1 *■ KMAX 

Z2 = Z1 + DZ * FUOAT(K) 

. Z(K) Z2 ■ 

ZREAL = Z2 * HREF 
30 WRITEILW.lOOl ) K. Z2 . ZREAL 
WR1TE(LW.1005) 

21 = l.O “ DZ * FLOAT(KMXC) 

DO 40 K = !• KMXC 

Z2 ~ = Z1 + DZ * FLOATIK) 

ZelK) = Z2 

ZREAL = Z2 * HREF 
40 WRITEILW.lOOl ) K. 22, ZREAL 
RETURN 
C 

1000 FORMAT! //, 13X, • I * , 1 8X , ♦ X * , 1 5X , » XREAL! M) • ,/) 

1001 FORMAT! I OX . 1 4 , 1 I X , 1 PE 1 3 . 6 ,5 X ,E 1 3. 6 ) 

10 02 FORMAT! //,13X,»J*,18X,*Y* ,15X,*SY* , 15X, 'SYT • , ISX, • YREAL!M ) • ,2 ) 

1003 FORMAT! lOX, 14, 11 X, IPEI.3.6,3 I5X.E13.6) ) 

1004 FORMAT!//, 1 3X , *K • ^1 8X , • Z * , I 5X , • ZREAL! M) » »/) 

1005 FORMA Tt//‘»13X»*K*,17X»*ZC*,13X,* ZCREAL! M) • , / ) 

END 
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uuuu 


SUBROUTINE SETUP 


RETRIEVE VALUES FROM ARRAYS AND ASSIGN THEM TO SCALARS IN ORDER 
TO CALCULATE NEW VALUES OF U* V. AND S. 


LOGICAL 

ISTEP* 

KEYOUT 

DOUBLE PRECISION 

SURF (2,18^ 17) t 

SURFC( 18 ) 

COMMON/BARS/ 

PTCTIN^ 

SBAR, 

1 UB AR » 

V8AR 


C0MM0N/6NKCR0/ 

EAST<22) . 

UMAX, 

1 JE ♦ 

JEAST<22) t 

JW, 

2 JWEST(22)f 

SOUTH(22) t 

WEST(22) 

COMMDN/CHNNEL/ 

CDEPTH» 

CWIDTH, 

I JWAG* 

KMXC* 

KMXCMl, 

2 KMXCM2 

COMMON/CQNC/ 

SI Ml , 

SIPl , 

1 SJMl, 

S JPl , 

SKMl , 

2 SKPl. 

SNEW, 

SOLO 

COMMON/FLOOR/ 

KFLCORI 18, 17) , 

Z8(18,17) 

COMMON /FLO ORC/ 

KFLORCC 18) , 

ZBC( 18) 

COMMON/FLOWl/ 

P(18,17,08)., 

S(2, 18,17, 

1 U(2. 18. 17»08) * 

V(2,18,17,08). 

W{ 18, 17,08 

C0MM0N/FL0W2/ 

SURF , 

DHDT{ 18, 17 

X DUOT( 18, 17,08) , 

OVDT(18,17,08) 


common/flowci/ 

PCU8.20) , 

SC( 2, 18,20 

1 UC(2, 18,20) • 

WC(18,20) 


COMMON/FLOWC2/ 

SURFC, 

DHCOTl 18 ) * 

1 OUCDTl 18,20) 

common/forces/ 

F 3 

FWINOXt 18, 

1 FWINOYf 18,17) , 

TOPLYR 


COMMON/GRID/ 

DT* 

DT02, 

1 OX, 

OXINV, 

OXT2IN, 

2 OXIN-SQ, 

DY, 

DYINV, 

3 OYT2IN, 

OYINSQ, 

DZ, 

4 DZD2, 

OZINV t 

DZT21N, 

5 DZINSQ 

COMMON/INDEX/ 

. I ^ 

J 9 

1 K, 

N 


COMMON/LIMITS/ 

I MAX» 

IMAXMl 9 

1 jmax. 

JMAXMl 9 

KMAXt 

2 KMAXMI, 

KMAXI^29 

NMAX» 

3 KEYOUT 

COMMOM/LN/ 

FUNLNl r 

FUNKAP 

COMMON/PASS/ 

IPASS, 

PDEPTH, 

1 PMOMAF, 

PSALT 9 

PWlOTH 

COMMON/PRES/ 

PIMI 9 

PIPl , 

1 PJMl, 

PJPl 
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c 


c 

c 

c 


COMMON/PtiLL/ 

1 time* 

2 YK2, 
COMMON/PULLC/ 
CaMMQN/RIVERS/ 

1 PHASE 1* 

2 RM0MAF(4)* 

3 UVARl, 
COMMON/STEP/ 

1 NBAR, 
COMMON/STR TCH/ 

1 SYJ, 
COMMON/TIOE/ 

1 TAMPMP, 

2 TAVGPH^ 
COMMON/UNITS/' 

1 FETCH, 

2 OMEGA ♦ 

3 VREF, 
COMMQM/VELCTY/ 

1 UJMIV 

2 UKPl, 

3 VIMl* 

4 V3P1, 

5 VNEW; 

6 WKPl, 

S8AR = 0*0 
UBAR =0,0 
V8AR ^ 0*0 
KOELTA = KMXC - 
FRAC - CVilDTH 


SYC17) f 
X( 18) f 
Z (8) 

zc(ao) 

JRI V(4) , 
PHASE2, 
RWI0THC4) , 
UVAR2 
MN, 

NWRITEf 

PREFIX, 

SYJPl » 

PHSEMP, 

TAMPPH, 

THGTMP, 

BETA, 

GRAV, 

PI , 

YMAX 

UIMi, 

UJPl , 

UNEW, 

VIPl , 

VKMl , 

VOLD, 

VyNEUI 


KMA-X 

^ SY(JWAG) ♦ DYINV 


3-D CALCULATION FOR BAY PROPER, 


DO 290 I - 2, I MAX 
JW = JWEST( I ) 

JE ^ JEAST( I ) 

LPI =1 + 1 

IF{ I .EQ, IMAX) IPl IMAX 

IMl ^ r - 1 

JWMl “ JW - 1 

SYJ^ ^ SYCJWMl) 

SYJPl - SY<JW) 

KBOT - KFLOORCI ♦ JWMl) 
KBOTJP == KFLOORTItJW) 

DO 290 J = JW, JE 


SYY( 17 ) , 
Y< 17) • 


NRIV, 

R0EPrH(4> , 
UAVG, 

MO, 

ISTEP 
SY JMl , 

SY2 

PHSEPH, 

TAVGMP, 

thgtph 

BET AD2, 
HREF, 

TREF, 

UIPl, 

UKMl , 

UOLD, 

V JMl , 

VKPl , 

WKMl , 
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JPI = J 1 

JMl = J - 1 

SY2 = SYY(J) 

KBOTIM = KFLOQR< IMl . J) 

KBOTIP = KFLOOR< IPI . J) 

KBOTJM = K80T 
KBOT = KBOTJP 
K = KBOT 

KBOTJP = KFLOOR( I . JPI ) 

K80TP 1 = KBOT + 1 

SYJMl = SYJ 
SYJ = SYJPl 
SYJPl = SY(JPl) 

PREFIX = SYJ * DYT2IN 
IF<KBQT.GT.Kf^AX) GO TO 290 
TOPLYR = SURF<MN*I.J) + 0ZD2 
ZBl = ZBU*J) 

ALPHA = 5.0 ♦ CZ(KBOTPl) - ZBI ) - 1.0 

FUNLN2 = ALPHA * (1.0 - ALPHA ♦ (0.5 - ALPHA ♦ (0.333333 - 

1 ALPHA # (0.25 - 0.2 ♦ ALPHA)))) 

FUNLN = l.O - DZ / ((Z(K80T) - 281 + DZD2) ♦ (FUNLNl + FUNLN2 + 
1 FUNKAP) ) 

SOLD = S(MO.I. J.KBOT) 

UOLD = U(MO»I. J.KBOT) 

VOLD = V(MO, I .J.KBOT) 

WNEW = W(l. J.KBOT) 

WKMl = - WNEW 

SKM 1 = SOLD 

1F( J.NE. JWAG) GO TO S 

NTRFCC = KFLOOR( I . JWAG) + KDELTA - 1 
WKMl = WC( I, NTRFCC) ♦ FRAC 
SKMl = SC(MN. I .NTRFCC) 

5 CONTINUE 

SKPl = SIMO .1 , J.KBOTPl ) 

UKPl - U(MO. I * J.KBOTPl ) 

VKPl = V(MO. I .J.KBOTPl ) 

WKPl = W( I .J.KBOTPl ) 

IFtKBOT.GE. KBOTJM) GO- TO 10 
SJMl = SOLD 

VJMl = -VOLD 

IF( I-.NE.IPASS.OR. J.NE..JW) GC TO 20 

SJMl = PSALT 

VJMl- ■= V( MO. I .JMl .KBOT) 

GO TO 20 

to SJMl = S(Mb, I . JM1.KB(3T) 

VJMl = V( MO. I, JMl, KBOT) 

20 1F(KB0T.GE. KBOTJP) GO TO 30 
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SJPl = SOLD 
VJPl = -VOLD 
GO TO 40 

30 SJPl = S<MO«I f JPl .KBOT) 

VJPl = V<MO.I* JPl ,KBOT) 

40 IFIKBOT.GE.KBOTIM) GO TO 50 
SlMl = SOLD 
UIMl = -UOLD 
GO TO 60 

50 SIMl = SfMO, IMl ♦ J.KBOT) 

UIMl = UCMO.IMl , J.KBOT) 

60 IF< I .EQ. IMAX) GO TO 80 

IF(K80T.GE,KB0T1P) go to 70 
SIPl = SOLD 
UIPl = -UOLO 
60 TO 90 

70 SIPl = S<MO. IPl . J,KBGT> 

UIPl = U(M0.IP1 * J*KBOT) 

60 TO 90 

80 SIPl = 1.0 
UIP.l = UOLD 
90 CALL BOTGRD 

S(MN. I. J.KBOT) = SNEW 

SBAR = SBAR + (SNEW * SNEW - SOLD ♦ SOLO) 

DO 190 K = KBOTPl. KMAXMl 

KPl = K + 1 

SKMl = SOLD 

SOLD = SKPl 

SKPl = SIMO.I. J.KPl ) 

UKNl = UOLO 

UOLO = UKPl 

UKPl = U(MO*I. J.KPl ) 

VKMl - VQLD 

VOLD = VKPL 

VKPl = V-(MO. I , J.KP-l ) 

WKMl = WNEW 

WNEW = WKPl 

WKPl = W(l.J.KPl-) 

IFCK.GE.KBOTJM) GO TO 100- 

SJMl = SOLO 

UJMI = UOLD 

VJMl = -VOLD 

PJMl = Pd.J.K) 

1F(I .NE.IPASS.OR. J.NE. Jte) GO TO 110 

SJMl = PSALT 

VJMl = V(MO*I . JMl »K) 

PJMl = THGTPH + BETA # PSALT ♦ (THGTPH + 1.0 - 


Z(K) ) 
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GO TO 

110 


ICO 

SJMl 

= S(MD,I. JM1,K) 



UJMl 

= U(MO* I. JMl ,K) 



VJMl 

- V<M0.1. JM1,K> 



PJMl 

= P< I , JMl *K) 


110 

IF<K* 

GE.K80TJP) GO TO 120 



SJP 1 

« SOLD 



UJPl 

= UOLD 



VJPl 

= -VOLO 



PJPl 

« P ( I . J*K ) 



GO TO 

130 


120 

SJPl 

= StMO.I* JPl «K) 



UJPl 

= UCMO.I. JP1»K) 



VJPl 

= V{MO#I . JPl »K) 



PJPl 

= P ( I . JPl .K) 


130 

IFIK. 

GE.kBOTIMJ GO TO 140 



SIMl 

= SOLD 



UIMl 

= -UOLD 



VIMl 

= VOLO 



PI M i . 

= P( I . J.K) 



GO TO 

15C 


140 

SlMl 

= S<MO*IMl *J,K) 



\jim 

= 0(M0.IMI « J,K> 



VIMl 

= V(MO«lMl •J.K) - 



PlMl 

= PUMl.J.K) 


150 

IF<I# 

EQ.IMAX) GO TO 170 



IF(K« 

GE.KBOTIP) GO TO 160 



SIPl 

- SOLD 



UIPl 

= -rUOLD 



VIPl 

= VOLD- 



PIPl 

= P(I .J.K) 



GO TO 

180 


160 

SIPl 

= S(MO. IPl , J.K) 



UIPl 

= U<MO.IPl*J.K) 



VIPl 

= V(MO,IPX , J.K) 



PIPl 

= P(.rPl .J.K) 



GO TO 

180 


170 

SIPl 

= l.-O 



UIPl 

= UOLD 



VIPl 

= VOLO 



PIPl 

= THGTMP + BETA * (THGTMP + 1.0 - Z(K)> 

■ 

160 

CALL 

UVSNEW 



5(MN-«r*J*K) = SNEW 



SBAR 

= SBAR + (.SNEW * SNEW - SOLD ♦ SOLD) 



U<MN» 

I. J.K) - UNEW 

to- 

'nI 


UBAR 

= UBAR + (UNEW 4 UNEW - UOLD ♦ UOLD) 

ro 


V( MN. 

I. J.K) = VNEW 

■ 



uuuu uuuuu 


VBAR = VBAR + (VNEW * VNEW - VOLD ♦ VOLD) 

190 CONTINUE 

INTERPOLATE LOGARITHMICALLY FOR VELOCITIES AT BOTTOM GRID 
PO INT. 

Ui = U(MO. I « J*KBQT) 

U2 = U(MN» I , J.KBOTPl ) # FUNLN 

UIMN. I, J*KBOT> = U2 

UBAR = UBAR + < U2 * U2 - Ul « Ul ) 

Ul = V(MO»I , J*KBQT) 

U2 = V(MN.I, J,KBOTPI ) ♦ FUNLN 

VCMN* I* J*KB0T) = U2 

VBAR = VBAR + ( U2 » U2 - Ul ♦ .Ul ) 

EVALUATE NEW S* U* AND V AT FREE SURFACE* VALUES OF S. U* V* 
AND W JUST ABOVE THE SURFACE ARE ASSUMED TO BE EQUAL TO THOSE 
AT THE SURFACE. 

K = KMAX 

SKMI Js-SOLO 
SOLD = SKPl 

UKMl = UOLO. 

UOLD = UKPl 

VKMl = VOLD 

VOLD = VKPl 

WKMl = WNEW 

WNEW = WKPl 

IF(KMAX.GE.KBOTJM) GO TO 200 

SJMl = SOLD 

UJMl = UOLD 

VJMI = -VOLD 

PJMl = P ( I , J.KMAX) 

IF( I.NE. IPASS.OR. J.NE, JW) GO TO 210 

SJMl = PSALT 

VJMI = VCMO.I, JMl.KMAX) 

PJMl = THGTPH ♦ <1.0 + BETA * PSALT) 

GO TO 2L0 

200 S-JMl = S(MO. I , JMl .KMAX) 

UJMl = UCMO, I , JMl .KMAX) 

VJMI = VIMO.I. JMl, KMAX) 

PJMl = P(I , JMl .KMAX) 

21C IF(KMAX.GE.KBOTJP) GO TO 220 
SJPl = SOLD “ • 

UJPl = UOLD 

VJPl = -VOLD 

PJPl = P(I.J.KMAX) 
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GO TO 230 

220 SJPl - S(M0.I* JPl-tKMAX) 

UJPl = U(MO*I* JPl.KMAX) 

VJPl = V{MO.I, JPl ,KMAX) 

PJPl = PU*JP1,KMAX) 

230 1F(KMAX.GE.K80TI M) GO TO 240 
SIMl = SOLD 

UIMi = -GOLD 

VI Ml = VOLD 

PIMl = P(I,J.KMAX> 

GO TO 2S0 

240 SIMl = SCMO.IMl » J.KMAX) 

UlMl = U(MO» IMl ♦ J.KMAX) 

VIMl = V(MO, IMl , J.KMAX) 

PIMl = P(IM1, J.KMAX) 

250 IF{ I. EQ. IMAX) GO TO 270 

IFIKMAX.GE.KBOTIP) GO TO 260 

SIPl = SOLD 

UIPI = -UOLD 

V.IPl VOLO 

PIPl = P( I .J.KMAX) 

GO TO 280 

260 SIPl = S(M0*IP1 . J.KMAX)- 

UIPl = UIMO.IPl. J.KMAX) 

VTPl = VIMO.IPI .J.KMAX) 

PTPl - PdPl. J.KMAX) 

GO TO 280 
270 SIPl =1.0 
UlPl = UOLD 

VIPT = VOLD 

PIPl = THGTMP ♦ (l.O + seta) 

280 CALL SURFAC 

SCMN.l. J.KMAX) = SNEW 

SBAR = S8AR + (SMEW ♦ SNEW ~ SOLO ♦ SOLD) 
U(MN. r. J.KMAX) = UNEW 

UBAR . = U8AR + (UNEW ♦ UNEW - UOLD ♦ UOLD-) 
V( MN. I . J .KMAX) = VNEW 

V8AR = V8AR + (VNEW ♦ VNEW - VOLD ♦ VOLD) 
290 CONTINUE 

2-D CALCULATION FOR SHIP CHANNEL. 

KBOT = KFLORC( I ) 

KBOTIP = KFL0RC(2) 

DO 460 1=2, IMAX 
IPl =1 + 1 
IF( I,EQ.IMAX> IPX = 


IMAX 
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KBOTIM = KBOT 
K80T = KBDTIP 
K = KBOT 

KBQTIP = KFLORCCIPl) 

KBOTPl = KBOT + I 
NTRFCE = KFLOOR( I . JWAG) 

NTRFCC = NTRFCE + KDELTA - 1 
TOPLYR = SURFC(I) + 02D2 
ZBl = ZBC{ I ) 

AUPHA = 5.0 * (ZC(KBOTPl) - ZBl) - 1.0 

FUNLN2 = ALPHA * (l.O - ALPHA ♦ (0.5 - ALPHA ♦ (0.333333 - 
1 ALPHA * (0.25 - 0.2 ♦ ALPHA)))) 

FUNLN = 1.0 - DZ / ((ZC(KBOT) - ZBl + DZ02 ) ♦ (FUNLNl + FUNLN2 + 

1 FUNKAP)) 

SOLO = SC(MO.I .KBOT) 

UOLO = UC( MO. I .KBOT) 

■ VINEW = WC( I .KBOT) 

SKMl = SOLD 

SKPI = SC(MO. I .KBOTPl) 

UKPl = UC(MO. I .KBOTPl ) 

WKPl = WC (I .KBOTPl ) 

IFTKBOT.GE.KBOTI M) GO TO 300 
&IM1 = SOLO 

UIMl = -UOLO 

GO TO 31 C 

300 SIMl = S.C(MO.I Ml .KBOTl 
UIMl = UCIMO.IMI .KBOT) 

310 IF( I .EQ . IMA^X) GO TO 330 

IF(KBOT.GE.KBOTIP) GO TO 320 
SIPl = SOLO 

UlPl = -UOLO 

GO TO 340 

320 SIPl = SCtMO.IPl .KBOT) 

UIPl = UC(MO.IPl .KBOT) 

GO TO- 340 
330 SIPl = l.O 

UIPl = UOLO 

34.0 CALL 8TGROC 

SC(MN .1 .KBOT) = SNEta 

SBAR = SOAR + (SNEW * SNEW - SOLO « SOLO) 

DO 40C K - KBO.TP1. NTRFCC 

KPl = K + 1 

SKMl = SOLO 

SOLD = SKPI 

SKPI = SC (MO. I .KPl ) 

UKMl = UOLD 
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UOLO 

= UKPl 



UKPl 

= UG (M0» I »KP1) 



WKMl 

4 WNEW 



WNEW 

3 WKPl 



WKP 1 

3 WC(I*KP1) 



IF(K.GE.KBOTIM) GO TO 

350 


SIMl 

3 SOLD 



UIMl 

3 -UOLD 



PIMl 

3 PC( I *K) 



GO TO 

360 


350 

SIMl 

= SCIMO.IMl.K) 



UIMl 

3 UC<MO*IMl*K> 



PIMl 

3 PC ( IMl «K) 


360 

IF( I.i 

EQ. IMAX) GO TO 380 


IF(K* 

GE.KBOTIP) GO TO 

370 


SIPl 

3 SOLD 



UIPl 

3 ~ UOLD 



PIPl 

3 PC< I *K) 



GO TO 

390 . . 


3 70* 

SIPl 

3 SC<MO,IPl,K) 



UiPl 

■ 3 UC( MO,IPl .K) 



PIPl 

3 PC< IPl.K) 



GO TO 

390 

. 

380 

SIP 1 

, 3 1.0 



UIPl 

3 UOLD 



PIPl 

= THGTMP + BETA ( THGTMP + , 

390 

CALL 

USNEW 



SC (MM 

,r.K) = SNEW 



SBAR 

3 SBAR + (SNEW 

4 SNEW - SOLO 


uccmn 

,I*K) 3 UNEW 



ueAP 

3 UBAR + (UNEW 

4 UNE.W - UOLD 


400 


450 

46C 


continue 

U1 = UC<MOtr*KBOT) 

U2 « UC(MN, I *KB0TP1 > ♦ 

UC(MN.r»K80T) - U2 

UBAR - UBAR + {KJ2 * VZ ~ 

DO 450 K = NTRFCE. KMAX 

KC * K + KOEUTA 

UC(MN*I*KC) = U(MN*I ♦ JViAG. 

SC(MN.I»KC) = S(MN,I . JV>AG» 

CONTINUE 

RETURN 

END 


FUNLK 
U1 4 Ull 


K) 

K) 


0 - 2C { K ) ) 

: SC1_D) 

: UCLD) 
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SUBROUTINE UVSNEW 


EVALUATE HORIZONTAL MOMENTUM AND SALT WATER TRANSPORT EQUATIONS 
USING POACHERS SECOND ,WI NOWARD DIFFERENCES FOR THE CONVECTIVE 
TERMS* 


LOGICAL 

I STEP 


DOUBLE PRECISION 

SURF (2*18*17) * 

SURFC( 18 ) 

common/bnkcrd/ 

EAST(22) * 

UMAX* 

1 JE* 

JEAST<22 ) * 

JW* 

2 JW£ST<22)» 

SOUTH (22 ) * 

WHSTC 22 ) 

COMMON/CHNNEL/ 

CDEPTH* 

CWIDTH* 

1 JWAGf 

2 KMXCM2 

KMXC * 

KMXCMl * 

COMMON/CONC/ 

SIMl * 

SIPl* 

1 SJMl» 

S JPl * 

SKMl* 

2 SKPl^ 

SNEW* 

SOLD 

COMMON/FLO W2/ 

SURF * 

OHDT( 18* 17)* 

1 DUDT( ia»17#08> * 

DVDT (18*17*08) 


* C0MM0N/FL0WC2/ 

1 DUCDT( 1*8*20) 

SURFC* 

DHCDTC 18)* 

COMMON/FORCES/ 

F* 

FWINDXC 18, 17) * 

1 FWINDYI ia*17) * 

TOFLYR 


COMMON/GRID/ 

or* 

DT02* 

1 DX * 

DXINV* 

DXT2IN* 

2 DXlNSQs^ 

DY* 

DYINV* 

3 OYT2IN,^ 

OYINSQ* 

DZ* 

4 DZD2* 

DZINV* 

02T2I-N. 

5 OZINSQ 


COMMON/XNDEX/ 

1 • 

J f ' 

1 K* 

N 


COMMON/PASS/ 

IPASS* 

PDEPTH. 

1 PMQMAF* 

PSALT* 

PWIDTH 

COMMON/PRES/ 

PI Ml * 

PIPl , 

1 PJMl* 

P JPl 


GOMMON/RIVERS/ 

JRI V(4) * 

NRIV* 

1 PHA.SEI* 

PHASE2 * 

RDEPTH(4)* 

2 RMQMAF<4)* 

RWIOTH (4 ) * 

UAVG* 

3 UVAR1«* 

UVAR2 


COMMON/STEP/ 

MN* 

MO* 

1 NBAR^ 

NWRITE* 

LSIEP 

COMMON/STRTCH/ 

PREFIX* 

SY JMl * 

1 ^ SYJ-* 

SY-JPl * 

SY2 

COMMQN/TUNE/ 
1 AVCOMP 

ACCEL* 

ART VSC* 

COMMON/TURB/ 

COIF* 

CRICH* 

1 CVIS* 

DIFFUS* 

Vise 
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COMMON/UNITS/ 

BETA, 

6ETAD2 

1 FETCH* 

GRAV, 

HREF, 

2 OMEGA* 

PI * 

TREF, 

3 VREF* 

YMAX 


COMMON/VELCTY/ 

UIMl , 

UIPl , 

1 UJMl* 

U JPl , 

UKMl , 

2 UKPi* 

UNEW, 

UOLO, 

3 VIMl* 

VIPl , 

VJMl , 

4 VJPl. 

VKMl * 

VKPl , 

5 VNEW* 

VGLO , 

WKMl , 

6 WKPl* 

WNEW 



3-D EQUATIONS FOR BAY. 

RHOINV = l.O - BETA * SOLD 
WINOX = 0.0 

WINDY = 0.0 

GO TO 10- 

SPECIAL entry for SURFACE CALCULATIONS. 
ENTRY SURFAC 

RHOINV = t.O - BETA ★ SOLO 
COMP = RHOINV / TOPLYR 
WINDX = FWINDX(l.J) ♦ COMP 

WINDY = FWINDYCI.J) # COMP 

10 CONTINUE 

UF = UIPl + UOLO 

UB = UOLD + UIMl 

IF( UF.GT.0.0) GO TO 20 
COMPUl = UF * UIPl 

COMPVl - UF + VI PI 

COMPSl = UF ♦ SIPl 

GO TO 30 

20 COMPUl = UF * UOLD 

CQMPV 1 = UF # VOLD 

COMPSl =• OF ♦ SOLO 

30 IF(UB.GT.O.O) GO TO 40 

COMFUI = COMPUl - UB UOLD 
COMPVl = COMPVI - L8 ♦ VOLD 

COMPSl = COMPSl - UB ♦ SOLD 

GO TO 90 

40 IF(I.NE.2) GO' TO 70 
DO 50 NN = 1. NR IV 
IF< JRrvINNJ .EQ.J) GO TO 60 
SO CONTINUE 
GO TO 70 
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60 COMPUl = COMPUl - U8 * UIMl * RMOMAF(NN) 
60 TO 80 

70 COMPUl = COMPUl - UB « UIMl 

80 COMPVl = COMPVl - UB « VIMl ' 

COMPSl = COMPS! - UB * SIMl 

90 C0MPU2 = RHOINV ♦ {PIPl - PIMl) 

COMPV2 = RHOINV * (PJPl -> PJMl) 

VF = VJPl + VOLD 

VB = VOLD + VJMl 

IFIVF.GT.0.0) GO TO 100 
COMPU3 = VF ♦ UJPl 
C0MPV3 = VF ♦ VJPl 
C0MPS3 = VF * SJPl 
GO TO 110 

ICO C0MPU3 = VF ♦ UOLD 
COMPV3 = VF * VOLD 
C0MPS3 = VF ♦ SOLO 
110 IF< VB.GT.0.0) GO TO 120 

C0MPU3 =-fcOMPU3 - VB * UOLD 
COMPV3 = C0MPV3 - VB ♦ VOLD 

COMPS3 = COMPS3 - VB « SOLO 

GO TO 150 

120 C0MPU3 = C0MPU3 - VB ♦ UJMI 

IF< I.NE. IPASS.OR* J*NE. JW) 6C TO 130 
COMPV3 = C0MPV3 - VB ♦ VJMl ♦ PMOMAF 
60 TO 140 

130 COMPV3 = C0MPV3 ~ VB * VJMl 

140 COMPS3 = COMPS3 - VB 4 SJMl 

15C WF = WKPl + WNE.W 

WB - WNEW -t- WKMl 

IFIWF.GT.0.0) GO TO 16C 
COMPU4 = WF 4 UKPl 
COMPV4 = WF 4 VKPl 
COMPS4 = WF 4 SKPl 
GO TO 170 

160 COMPU4 = WF 4 UOLD 
■ COMPV-4 = WF 4 VOLD 
C0MPS4 = WF 4 SOLD 
170 Ii=( WB .GT.0.0) GO TO 130 

COMPU4 = COMPU4 - WB 4 UOLD 
COMPV4 = CaMPV4. - WB 4 VOLD 
C0MPS4 = C0MPS4 - WB 4 SOLD 
GO TO IPO 

■180 COMPU4 = C0MPU4 - WB 4 UKNl 

C0MPV4 = C0MPV4 - WB 4 VKMl 

COMPS4 =, COMPS4 - WB 4 SK.M1 

190 continue 
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NOW SOLVING THE X-MOMENTUM EQUATION. 

CALL VISCUS 

DU/DT = ''(D(U*y>/OX + D(U*V)/DV + D(U’«‘W)/DZ + ( 1 .O/RHO ) *OP/DX ) 
+ COEFVZ* (DSQU/DZSQ) + F*VOLD + FW INDX/( RHC*DEPTH ) 

DUOOT = - DXT2IN ♦ (COMPUl + C0MPU2) ~ PREFIX ♦ C0MPU3 - 

1 DZT2IN ♦ COMPU4 + VISC + F * VOLD + WINDX 

UNEW = UOLD + CDUODT + DUDT(I*J*K)) * DTD2 

IFIISTEP) OUOT<I,J,K> = OUODT 

NOW SOLVING THE Y-MOMENTUM EQUATION, 

CALL - Wise 

DV/DT = -<D{U#V)/OX + 0(V«V)/DY + DIV+W)/DZ + ( 1 .O/RHO ) *DP/OY ) 
+ COEFVZ#{DSQU/DZSQ) - F*UOLD + FWlNDY/( RHO^DEPTH) 

DVODT = - DXT2IN * COMPVl - PREFIX ♦ (C0MPV2 + CQMPV3) - 

1 DZT2IN ♦ COMPV4 + VISC - F ♦ UOLD + WINDY 

VNEW = VOLO + (DVODT + DVDT(I.J»X)) * DT02 

IF(ISTEP) DVOT(I»J»K) = DVODT 

NOW SOLVING THE SALT CONSERVATION EQUATION. 

CALL DIF USE 

DS/OT = -{D(U#S)/OX + D(V*S)/OY + D(W*S)/^DZ) 

+ COEFDX* (DSQS/DXSG) + COEFDY *< DSQS/DYSQ ) 

+• COEFDZ*(DSQS/DZSQ) 

200 OSODT = - DXT2IN * COI^PSl - PREFIX * C0MPS3 - DZT2IN ♦ COMPS4 
I ■ + DIFFUS 

SNEW = SOLD +- DSOOT * OT ♦ ACCEL 
rF(SNEW.LT.O.O) SNEW = 0.0 
IFISNEW.GT, l.O) SNEW = 1.0 

return 

SPECIAL ENTRY FOR SALTNITY CALCULATION AT BOTTOM GRID POINT. 

ENTRY 80TGRD 
UF = UIPl + UOLD 

UB = UOLD + UIMl 

IF(UF.GT.O.O) GO TO 210 
COMPS 1 = UF- * SI PI 


380 



ORIGINAU PAGE IS 
OE POOR QUALITY. 


GO TO 220 

210 COMPSl - \JF ^ SOLD 
220 IF(UB .GT.0.0) GO TO 230 

COMPSl = COMPSl - U8 ^ SOLD 
GO TO 2^0 

230 COMPSl COMPSl - UB ^ SIMl 
240 VF ^ VJPl + VOLD 

V8 - VOLO > VJMl 

IF( VF •GT#0*0) GO TO 250 
CQMPS3 = VF ♦ SJPl 
GO TO 260 

250 COMPS3 := VF ^ SOLD 
260 IF{ VB *GT.0#0) GO TO 270 

COMPS3 = COMPS3 - VB ^ SOLO 
GO TO 280 

270 COMPS3 = COMPS3 - VB ★ SJMl 
280 WF - WKPl + WNEW 

WB WNEW -f WKMl 

IF( WF^GT*0*0> GO TO 290 
COMPS4 r: WF ♦ SKPl 
GO TO 300 


290 

C0MPS4 - 

WF * 

SOLD 



300 

IF( WB.GT. 

0*0) 

GO TO 

302 



COMPS4 = 

COMPS4 - V»B 

♦ 

SOLD 


GO TO 304 



SKMl 

302 

COMPS4 = 

C0MPS4 - W8 


304 

CONTINUt 






SKMt SOLD 

CALL BTD^IF 
GO TO 200 
C 

C 2-0 EQUAtlONS FOR SHIP CHANNEL* 

C 

ENTRY aSNEW 

RHOINV = 1*0 —BETA ^ SOLD 
WINDX == 0*0 
GO TO- 31C 
C 

ENTRY SRFACC 

RHOINV = 1.0 - BETA « SOLO 
WINOX == F WINDX( I t JWAG) ❖ RHOINV / 
310 CONTINUE 

UF = UIPl F UQLD 

U8 = UOLD + UIMl 

‘ IF(UF*Gr.0#0) GO TO 320 
COMPUl ::: UF * UIPl 
COMPSl = UF SIPl' 


TOPLYR 
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GO TO 330 

320 COMPUl ~ UF ♦ UOLO 
COMPS 1 = UF ♦ SOLD 
330 IF( UB .GT,0*0) GO TO 340 

COMPUl = COMPUl - ue * UOLD 

COMPS 1 ■= COMPSl - UB ♦ SOLD 

GO TO 35 C 

340 COMPUl = COMPUl - UB * UIMl 

COMPSl = COMPSl - UB 4 SIMl 

350 C0MPU2 = RHOINV * CPIPl - PIMl) 

WF = WKPl + WNEVil 

WB = WNEW + WKMl 

1F( WF.GT.0.0) GO TO 360 
COMPU4 = WF * UKPl 
C0MPS4 •= WF 4 SKPl 
GO TO 370 

360 C0MPU4 = WF 4 UOLD 
C0MPS4 = WF ♦ SOLD 
370 1F( WB.GT.0.0) GO TO 380 

C0MPU4 = COMPU4 - WB ♦ UOLD 
COMPS4 = C0MPS4 - WB ♦ SOLO 
GO TO 390 

380 C0MPU4 = C0MPU4 - WB * UKMl 
COMPS4 = COMPS4 - WB ♦ SKMl 
390 CONTINUE 

CALL VISCSC 

DUODT = ~ DXT2IN 4 CCOMPUl + C0MPU2) - 0ZT2IN 
1 + Vise + WINDX 

UNEW = UOLO + <OUODT + DUCDT(I*K>) ♦ DTD2 
IFdSTEP) DUCOT(I*K) = DUODT 

CALL DIFUSC 

400 OSGDT = - DXT2IN ♦ COMPSl - DZT2IN 4 C0MPS4 + 

SNEW = SOLO + DSOO-T * OT 4 ACCEL 

IF(SNEW.LT.O.O) STNEW = 0.0 
IF(SNEW.GT.l.O) SNEW = l.O 
RETURN 

ENTRY BTGRDC 
UF = UIPl + UOLD 

UB = UOLD + UIMl 

IF( UF .GT.O. 0) GO. TO 4 10- 
^ . COMPSl = UF 4 SIPl 

GO TO 420 

410 COMPSl = UF 4 SOLD 
420 IFI UB .GT.O. 0) GO TO 430 


4 COMPU4 


DIFFUS 
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COMPS 1 = COMPSl - US * SOLD 
GO TO 440 

430 COMPSl = COMPSl - UB ♦ SIMl 
440 WF = WKPl + VyNEW 

IF(WF.GT.O.O) GO TO 450 
C0MPS4 = WF ♦ SKPl 
GO TO 460 

450 C0MPS4 = WF * ' SOLO 
460 CONTINUE 

CALL BTDIFC 
GO TO 400 
END 
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SUBROUTINE VISCUS 

CALCULATE TURBULENT SHEAR STRESS AND DIFFUSION TERMS. 


COMMON/CQNC/ 

SIMl * 

SIPl. 

1 SJMl, 

SJPl ♦ 

SKMl . 

2 SKP1» 

SNEW^ 

SOLD 

COMMON/GRID/ 

OT» 

QTD2» 

1 DX , 

OXINVt 

0XT2IN. 

2 OXINSQ, 

DY. 

DYINV. 

.3 DYT21N. 

OYINSQ* 

DZ. 

4 DZ02. 

5 DZINSQ 

OZINV, 

DZT2IN. 

COMMON/STRTCH/ 

PREFIX. 

SYJMl . 

1 SYJ, 

SYJPl . 

SY2 

COMMON/TURB/ 

COIF, 

CPICH, 

1 CVIS. 

DIFFUS, 

Vise 

COMMON/VELCTY/ 

U£M1 * 

UIP1% 

1 UJMl. 

UJPl » 

UKMl . 

2 UKPl* 

UNEW« 

UOLD. 

3 VtMl* 

VIPl « 

VJMl , 

4 VJPl, 

VKNl « 

VKPI* 

5 VNEW, 

VQt.O ♦ 

WKMI « 

6 WKPl, 

mBVi 



3-D EQUATIONS FOR BAY. 


CVISl- = CVIS 

UDEL - UKPl - UKMl 

VDEL = VKPI - VKWJ 

DO = SQRTtUDEL * UDEL + VDEL ♦ VDEL) 

10 RICH » CRICH ♦ <SKP1 - SKMl ) / <DQ *00+ l.OE-6) 

TF(RICH»LT.-0.0) RICH = 0.0 
DAMPV = 1.0 / SQRTU.O + 10.0 ^ RICH-) 

ZCQMP * CVLSl * lUKPl- - UOLD - UOLD + UKMl) *■ OZINSQ 
GO TO ZC 
ENTRY Wise 

ZCOMP = CVISl * (VKPI ~ VOLO - VOLD + VKMl ) ♦ DZINSQ 
20 V-ISC = DAMPV ♦ ZCOMP 
RETURN 
C 

entry btoif 
CD-IFI = CDIF 
DAMPD =1,0 
GO TO 3C 
C 

ENTRY DIFUSE 
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c 

c 

c 


c 


c 


OAMPD 
30 TWOS 
YCOMP 1 
YC0MP2 
40 XCOMP 
ZCQMP 
D IFFUS 
RETURN 


1.0 / <1.0 + 3.333 * RICH)X'*1.5 
SOLD + SOLD 

SY2 ♦ DYT2IN * {SJPl — SJMl)' 

4.0 ♦ PREFIX ♦ PREFIX ♦ (SJPl - TWOS + SJMl) 
(SIPl - TWOS + SIMl) * DXINSQ 

CDIFl * (SKPl - TWOS + SKMl) ♦ DZINSQ 
CDIFl * (XCOMP + YCOMPl + YC0MP2) + DAMPO * 


2-D EQUATIONS FOR SHIP CHANNEL. 


ENTRY VI SC SC 

DQ = ASS(UKP1 - UKMl ) 

CVISl = 2.0 * CVIS 
GO TO 10 

ENTRY BTDIFC 
CDIFl = 2.0 * COIF 
DAMPD = 1.0 
GO TO 50 

ENTRY DIFUSC 

OAMPD ,= l.C / (l.C + 3.333 ♦ RICHl^’M.B 
50 TWOS = SOLD + SOLD 
YCOMP 1 =0.0 
YCOMP2 = 0.0 
GO TO 4C 
END 


ZCOMP 
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SURROtTiNE VOLDIL 


CALCULATE NEW VERTICAL VELOCITIES AND SURFACE HEIGHT LOCAriONS 
USING THE VOLUME DILATATION EQUAriON. 


LOGICAL 

ISTEP, 

KEYOUr 

DOUBLE PRECISION 

SURF(2,18,17), 

SURFC( 18 ) 

DOUBLE PRECISION 

SURFAV, 

SURFIM, 

1 SURF IP, 

SURF JM, 

SURFJP, 

2 SURFl, 

SURF2 , 

TWCSRF 

COMMON/BNKCRO/ 

EAST (22) , 

I IMAX, 

i JE, 

JEAST(22).- 

JW, 

2 JWEST(22), 

SOUTH (22 ) , 

WEST(P2) 

COMMON/CHNNEL/' 

CDEPTH , 

CW IDTh, 

1 JWAG, 

KMXC, • 

KMXCMl , 

2 KMXCM2 



COMMqn/'FLOOR/ 

KFLOORdS, 17) , 

2B( 18, 17 1 

CQMMON/FLOORC/ 

KFLORCUS) , 

ZBC( 18 ) 

COMMON/FLOVill/ 

P( 18,17,08) » 

S(2, 18. 17,08 ) , 

1 U( 2, 18. 17,C8) « 

V(2,18, 17,08) , 

W( 18, 17, 08 ) 

COMMON/KLOW2/ 

S URF , 

OHDT ( 18, 17), 

1- DUUT( 18,17.08) . 

DVDT(18.17,08) 


COMMON/FLOWCl/ 

PC ( 18 ,20 ) , 

SC( 2, 18,20), 

1 , OC (2, 18,20) , 

WC (18,20) 

, 

CQMM0N/HL0WC2/ 

SURFC , . , ' - 

0HCDT( 18 ) , 

1 OUCDTC 18,20)' 



COMMON/FOHTNO/ 

LR , 

LT» 

1 LW 



CDMMON/CRID/ 

DT, 

0 X02 ♦ 

1 DX, 

DXINV, 

DKT2tN^ 

2 DX1N30, 

DY, 

DY 

3 OYT2IN, 

OYINSa, 

OZf 

4 DZ02, 

DZINV , 

0ZT2IN# 

5 DZINSQ 



COMMON/GULF/ 

CUTPT, 

. Kcur. 

1 PERIOI 



COMMON/TNOEX/ 

I ,- 

J « 

I K , 

K 


COMMON/LIMITS/ 

I MAX . 

I MA^jW 1 • 

1 JMAX, 

JMAXMl , 

KMAX^ 

2 KMAXMl, 

KKAXM2, 

f 

J KEYOUT 



COMMON/PASS/ 

IPASS , 

PD-EPTH. 

1 pmomaf, 

PSALT, 

PWIDTh 

COMMON/PULL/ 

SY(17) , 

SYY< 17) , 

1 time. 

X ( 18) . 

Y ( 1 » 

2 YK 2 . 

2(8) 
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CON>MON/P ULLC/ 
COMMON/R IVERS/ 


ZC(20) 
JRIV(4) . 

NRlVf 

& o 

1 PHASE 1, 

2 RM0MAF(4>* 

' 3 UVARl,^ 


PHASE2 . 
RWIDTHI4 > . 
UVAR2 

RDEPTH14) 

UAVGf 


COMMON/STEP/ 


MN. 

WO* 

8S 

1 NBAR, 

COMMDN/TIDE/ 

1 TAMPMP, 

2 TAVGPH^ 


NWRITE, 
PHSEMP, 
TAMFPH , 
THGTMP, 

ISTHP 
PHSEPh* 
T AVGMP* 
THGTPH 

iff 
|§ ■ 

COMMON/TUNE/ 

‘ 1 AVCOMP 

KDELTA “ KMXC - 
TEST = -1.5 « 

KMAX 

OZ 

ACCcL . 

ARTVSC* 

FRAC - CWIDTH 

^ SY(JVVAG) ^ DYINV 



W63 


c 

c 

c 


2-D EQUATIONS FOR SHIP CHANNEL. 


KBOT KFLORCI 1 ) 

KBOTIP = KBOT 

DO 430 r 1. IMAX 

IMl =1-1 

IF(I.eO.l) IMI = 1 

IP I =1 + 1 

IF( I ,EQ. IMAX) IPl = IMAX 

KBQTIM = KBOT 

KbOT = KBCTIP 

KBOTIP = KFLORCIIPl) 

KBOTPl = KBOT + 1 
NTRFCE = KFLOOR< I » JWAC,) 

NTRFCC = NTRFCE + KDELTA - 1 
IF(KBOT.GE.KBOTIM) GO TO 300 • 

UIMl = - UC { MN, I ,KBCT ) 

GO TO 31 C 

30C UIMl = UC< MN. I Ml ,KB0T ) 

310 IF (KBOT.GE .K80TI P > GO TC 320 
UIPl = - UC (MN., I .KBOT) 

GO TO 330 

320 UIPl = UC( MN.l PI ,K 80 r> 

330 COiNTINUfc- 

WNEW = 0.25 * (UIMl - UIPl) * DXINV # (ZC(KROT) - 

WC(I.KBOT) = WNEW 

DO 38C K = KBOTPl. NTRFCC 

KMl = K - 1 

UIMKMI = UIMl 

IF(K.GE.KaOTIM) GO TO 340 

UIMl = - UC ( MN . I , K ) 


/ec( I ) ) 
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I! 

cj ^ 


GO TO 350 

340 UIMl = UC(MNiIMl,K) 

3SC UIPKMl = UIPl 

IF{K,GE.K80TIP) GO TO 360 
UIPl = - UC(MN.I .K) 

GO TO 370 

360 UIPl = UC(MN,IP1,K) 

3 70 CONTIMUt" 

UIN •= UIMl + UIMKMl 

UOUT = UIPl + UIPKMl 

WNEW = WNEW + 0.25 ♦ (UIN 

WC( r,K) = WNEW 
380 continue 
430 CONTINUE 

c 

C 3-0 EQUATIONS FOR BAY. 

C 


DO 280 

I 

- If I max 

IMi 

— 

I - 1 

IF ( I •ea 

• 

1) IMI 1 

IP 1 


I + 1 

IF< I .EQ 

• 

IMAX) IPX = IMAX 

JW 

r; 

JWESTU ) 

JE 

- 

JEAST( I ) 

SURF 1 

=: 

SURFCMOfI • JW) 

SURFJP 

r: 

SURF 1 

K0OT 


KMAX 4- 1 

KBGTJP 


KFLUOR( I ♦ JW) 

Y1 


Y(JW-l) 

YJP 1 

= 

Y< JW) 

DELY2 


YJPl -- Yl 

DO 280 

J 

= JW, JE 

JP 1 

= 

J + 1 

JM 1 


J - 1 

YJM 1 


Y 1 

Y 1 

~ 

YJPl 

YJP 1 


Y ( JPl ) 

DELY 

zz 

C,5 * ( YJPl - Y JMl ; 

DELYI M 

cr 

1 • 0 / DELY 

DELYl 


DELY2 

UELY2 

— 

YJPl Yl 

KBOTJM 


KBOT ' 

K60T 

zz 

KBUT JP 

KBOTJP 

~ 

KFLOOR< I , JPl ) 

SURFJM 


SURFl 

SURF! 

= 

SURFJP 

SURFJP 


SURF < MO . I , JPl ) 


UOUT) ♦ DXINV ♦ DZ 
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IF(KQOTJP.GT.KMAX) SURFJP = SURFl 
1F<KB0T.GT«KMAX) GO TO 280 
SURFIM = SURF(MO,IMl , J) 

IF( I .EQ» IMAX) GO TO 10 
SURFIP - SURF(M0.IP1 * J) 

60 TO 2 C 

10 SURFIP = THGTMP 
20 KBOTIM = KFLOORC IMl , J> 

KBOTIP = KFUOORI IPl , J) 

KBOTPl = KBOT + 1 

IFIKBOTIM.GT.KMAX) SURFIM = SURFl 
IF(KBOTIP.GT.KMAX) SURFIP := SURFl 
IFIKBOT.GE .KBQTI M) GO TO 30 
UIMl = - U(MN.I * J«K80T) 

GO TO 4C 

30 UIMl - U(MN,IMl» J,KBOT) 

40 IFIKBOT.GE. KBOTIP) GO TO 50 
UIPl, =- U(MN, I . J.KBOT) 

GO TO 60 

50 UIPl = U(MN, IPl . J.KBOT) 

60 IFIKBOT.GE. KBOTJM) GO TO 70 
VJMl = - VIMN.I . J.KBCT) 

IFd.EQ.lPASS.ANO. J.EQ. JW) VJMl = V ( MO » I . JM 1 , KBOT ) 

GO TO 80 

70 VJMl = VIMNtI . JMl ,KB0T) 

80 IFIKBOT.GE. KBOTJP) GO TO 90 
VJPl = - VtMN. I . J.KBGT ) , 

GO TO 100 

90 VJPl = VIMN.I , JPl ,KBCT) 
too CONTINUE 

WNEW = 0.25 « {(UIMl - UIPL)* DXINV + (VJMl - VJPl) * DELYIN) * 
1 (Z(KBOT) - 2611. J)) 

WI-I.J.KHOT) = WNEW 
DO 190 K = KBOTPl. KMAX 
KMl = K . - I 

UIMKMl = UIML 
IF(K.GE.KBOTI-M) GO- TO 110 
UIMl = - U( MN. I . J.K) 

60 TO 120 

110 UIMl = UIMN.IMl.J.K) 

120 UIPKMl = UIPl 

IFIK.GE. KBOTIP) GO TO 130 
UIPl ^ - U(MN, I .J.K) 

GO TO 140 

130 UIPl = UIMN.IPl . J.K) 

140 VJMKMl = VJMl 

IFIK.GE. KBOTJM) GO TO 150 
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p o 

l| 

1 ^' 


VJMl = - V(MN, I ♦ J.K) 

IF( I.EQ.IPASS.ANO, J.EQ. JW) \J Jtf I - V ( MO ♦ I . JM 1 * K ) 

GO TO 16C 

150 VJMl = V(MN,I * JMl ,K) 

16C VJPKMl = v/JPl 

IF(K.GE.KBOTJP) GO TO 170 
VJPl = - V{MN. I ♦ J»K) 

GO TO 1«0 

170 VJPl = V(MN»I . JPl ,K) 

180 CONTINUE 

UIN = UIMl + UIMKMl 

UOUT = UIPl + UIPKMl 

VIN = VJMl + VJMKMl 

VOUT = VJPl + VJPKMl 

WNEW = WNEW + 0*25 ♦ ((UIN - UOUT) « CXINV + 

1 (VIN - VOUT) * DELYIN) ♦ OZ 

19C W(I,J,K) = WNEW 

1F( J.NE. JWAG) GO TO 21C 
WCHN = WC(I.NTRFCC) 

WBAY = FRAC * WCHN 
DO 20U K = K0OT» KMAX 
2C0 W(I,JWAG«K) = W(r,JWAG.K) + WRAY 
210 CONTINUE 
C 

C CALCULATE FREE SURFACE LOCATION. 

C 

UMID = U(MN«I, J.KMAX) + U ( MN . I , J , KMA XM 1) 

VMIO = V(MN. I .J.KMAX) + V ( MN . I . J . KMAXM 1 ) 

UIN = (UIN + UMIO) ♦ (0.5 « (SURFIM + SURFl) -I- D2 ) 

UOUT = (UOUT + UMIO) ♦ (0.5 * (SURFIP 4- SURFl) + DZ ) 

VIN = (VIN + VMIO) (0.5 * (SURFJM + SURFl) OZ ) 

VOUT = (VOUT + VMIO) ^ (0.5 * (SURFJP -I- SUHFl) + OZ ) 

TWOSRF = SURFl + SURFl 

COMPHl - (SURFIP - TWOSRF + SURFIM) « DXINSQ 
PREFIX = SY(J) * DYINV 

COMPK2 = (SURFJP ~ TWOSRF + SURFJM) « PREFIX ♦ PREFIX + 

I (SURFJP - SURFJM) * DYT2IN * SYY(J) 

OHOOT = W ( I , J.KMAXMl ) + 0.25 * ((UlN - UOUT) * DXINV + 

I (VIN - VOUT) « DELY.IN) + ARTVSC ♦ (CCMPHl + COMPH2) 

SURF2' = SURFl + (OHOOT + DHDT(I.J)) * OrD2 
OHDT( I . J > = DHODT 
IF(SURF2.LT. TEST) GO TO 290 
SURF(MN.I.J) = SURF 2 
GO TO 47C 

290 WRI rE(LW.lOOG) N. I. J 
KEYOUT = .TRUE. 

RETURN 
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470 CONTINUC 

c 

IF< J.NE. JWAG) GO TC 280 
DO 390 K = KBOT, KMAX 
390 WC( I« K+KDELTA > = VKCHN + VKI»JWAG*K) 

SURF2 = SURF<MN»I *JWAG) + V«CHN « OT 
IF{SURF2.LT,TEST) GO TO 440 
SURFC(I) = SURF2 
280 continue 

GO TO 4SC 

440 WR ITE(LW«100l ) N» I 
KEYOUT = .TRUE. 

450 RETURN 

loco FORMA T(5X, 'SURFACE TOO ROUGH AT N = '.IS.SX,' I 
1 13 ) 

1001 F0RMAT(5X. 'SURFACE TOO ROUGH AT N = '♦IS.SX,* 1 

END ■ 


13. 5X,' J = '. 

13) 
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BLOCK DATA 



C 

C 

c 


c 

c 

c 

c 


VARIOUS CONSTANTS ARE DEFINED. 


LOGICAL ISTEP 

COMMON/FORTNO/ LR^ 

1 LW 

COMMON/ INDEX/ It 

I K* N 

COMMON/STEP/ MNt 

I NBAR. NWRITE. 

COMMON/UNITS/ BETA. 

1 FETCH. GRAV. 

2 OMEGA. PI. 

3 VREF. YMAX 


LT. 


J f 


MC. 

ISTEP 

8ETAD2. 

HREF. 

TREF, 


LW. LR. LT ARE THE LOGICAL I /G UNIT NUMBERS FOR WRETING ON LINE 
PRINTER. READING FROM CARD READER. USING TAPE. RESPECT I VEL Y . 


DATA LW.LR .LT/6.5 .3/ 

DATA MN.MO.N/2.1 .0/ 

DATA GRAV.0MEGA.PI/9.7R0 .7.29E-6.3. 1415R/ 
END 


w 

VO 

N5 



DATA 


0 

0 

2 

18 

17 

a 

C« 

60. 

50.5860 

26*3130 



0* 

1.7127 

39.5 

0.00 15 

G. 0015 

1 0. 0 

7 

20 


12.3 

1 22.0 


0.0 

0.0 

OoO 

1.0 

2400. 

1 . 0 

4 



7. 

9. 

235. 6 

8. 

9. 

316.6 

1 1 . 

6. 

335.5 

12. 

B . 

3X2.4 

0.9996 

3.8256 

0.4971 

IS. 

1 .5 

0.7 

22 



0.0 

-0.10 

6.00 

1.3 

-1.35 

5.90 

2.6 

-1 .45 

5.85 

3.9 

-1.40 

6.20 

5.2 

-1.65 

6.00 

6.5 

-2.50 

6.35 

' 7ii8 

-3.00 

6.40 

9.1 

-3. 15 

5.90 

10.4 

-4.20 

5*40 

1 X .7 

-4.35 

4.25 

13.0 

-4.40 

5.00 

14.3 

-4.80 

5.20 

15.6 

-4.60 

5.40 

16.9 

-4.55 

6.50 

18.2 

-4.45 

8.25 

19.5 

-4.85 

9.80 

20.8 

-5.40 

1 0.90 

22,. 1 

-5.35 

13.10 

23.4 

-5.00 

14.00 

24.7 

-4.40 

14.20 

26.0 

-3.80 

1 1 .20 

2 7.3 

-3.20 

0.50 


60 

6000 

375 

5. 

25 . 

30.7 

35.9 

33.2 

33.2 

0.4 



O 

. 

o 

0.0 

o 

• 

o 


-j.4i78 -C*'j7>6 

3000. 


.SC-30404EO 
. 1 ?907eE- 1 1- 
-• 14S9126E I 
1 

18 

0 . 


7724584E-4-. 1 3608 I 8E-3- . 2<?4 039VG -7 . 

22 3053E-1 I .46C191E-1.1-. 1643 06E-10 
O.CO O.EO O.EO 

C 4 

_ i7 8 60 300 0 

60. 5C.5360 <5. 26. 


J3 76083E-7 


3 78 
30.7 


30 . 


•6457060E-7 


30 . 
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■S’l' 

Sis 


3130 

C« 

1. 7127 

39.5 

G015 

C. 0015 

10.0 

7 

12.3 

120. 

20 

122.0 

200. 

25.0 

1.0 

2400. 

1 .0 

4 

7. 

9. 

235.6 

e« 

9. 

316.6 

1 1 . 

6. 

335.5 

12. 

8. 

312.4 

9996 

3.8256 

C.2721 

15. 

1 .5 

0.7 


35*9 

0*4 


33#2 


3 3#2 


37^0 474-. 608* 


-0*4378 -0.0796 

3000. 
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APPENDIX C 


VARIAN PLOT PROGRAM 

The Varian plot program generates plots of velocity vectors, 
salinity numbers and water level contours in cross-sections correspond- 
ing to the grid planes in the Mobile Bay model program. The plot 
program has been written specifically for the output of the Mobile Bay 
program. In addition, it requires the Varian plot package currently 
available on Louisiana State University Computer Research Center’s 
IBM 360. : 

The Varian plot program determines what cross-sections to plot at 
a given time level for which data are stored on tape on the basis of 
the values of control variables read from punched card input. These 
variables are defined with comment statements preceding the READ state- 
ments in which they appear, and are listed in Table C.l along with 
their input format for easy reference. These READ statements are 
located in the MAIN program. The model data are read from tape by a 
subroutine entitled READ, scaled by PEEP and plotted by Varian subrou- 
tines invoked by the MAIN program. Subroutines DODADl and D0DAD2 
generate reference scales and XYBRDl, XZBRDl and YZBEDl generate the 
bay boundaries corresponding to the xy- xz- and yz-cross-sections. The 
printed output from the program is nominal. 

A listing of the FORTRAN IV statements for the Varian plot program 
and a typical set of input data follow. 
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TABLE G.l 

Input Variables for Varian Plot Program 


Name 

Format 

NPLOTl 

no 

NPL0T2 

no 

NXY 

no 

NXZ 

no 

NYZ 

no 

KSECTN(I) 

no 

JSECTN(I) 

no 

ISECTN (I) 

no 



nnnn 


THIS PROGRAM PLOTS VELOCITY, SALINITY, AND SURFACE HEIGHT DATA 
FOR VARIOUS CROSS-SECTIONS OF MOBILE 6AY . 


LOGICAL 

I STEP, 

KEYOUT 

DIMENSION 

I SECTN(S) , 

JSECTN(5 ), 

1 KS£CTN<5) 

DIMENSION 

LCASWY(4> f 

LCHANLI4 ) , 

1 UELA<4)^ 

LEVkS(3) f 

LFREI 3) , 

2 LF«GU(9)» 

LGUL(3) * 

LHEU 3), 

3 LMMS(2), 

LNSS (3) « 

LPLOI 3) , 

4 LSAL(4)* 

LSUR<4) » 

LTID(4), 

3 LVEL(4)i, 

LWAT (3) , 

L1MPS(2) 

DOUBLE PRECISION 

SURF (18,17) * 

SURFCI ,18 ) 

COMMON/ACCT/ 

QDGT (7) , 

QNET(7) , 

1 QS00T(7)» 

QSNET(7) 

common/bars/ 

PTCTIN^ 

SaAR, 

1 UBAR, 

VBAR 


COMMON/BNKCRD/ 

EAST (22) ♦ 

1 IMAX , 

1 JE* 

JEAST(22) * 

J w * 

2 JWEST(22)f 

S0UTH<22 ) ^ 

WEST ( 22 ) 

COMMON/CHNNEL/ 

COEPTH* 

CW IDTH, 

1 JWAG, 

KMXC • 

KMXCMl * 

2 KMXCM2 

COMMON/FLOOR/ 

KFL0CR(18,17) • 

Z0( 18,17) 

COMMON/FLOORC/ 

KFLORC ( L8) , 

ZBC( 18 ) 

COMMON/FLOWl/ 

P{ 18,17,08) , 

S ( 1 8 , 1 7 , 8 ) 

1 U< 18. 17,08) , 

V( 18,17,08) , 

W( 13, 17.08) 

COMMON/FLO\^2/ 

SURF , 

DHDTt 18, 1 7 ) 

1 OUDT< 18,17,08) . 

DVDT(ie,l7,C8) 


COMMON/FLOWCl/ 

PC( 18,20 ) , 

SCI 18,20 ) , 

1 UC( 18,20), 

WCU8 ,20) 

COMMON/FLO WC2/ 

SURFC » 

DHCOTI 18 ) . 

1 OUCDTM8*20) 

COMMON/FORCES/ 

F ♦ 

FWINDX ( 1 

1 FW INOY( 18,17), 

TOPLYR 

COMMON/FOR TNO/ 

LR • 


1 LW 



CDMMON/GRID/ 

OT^ 

oro2. 

1 OX , 

OXINV , 

DXT2IN, 

2 DXINSO, 

DY * 

OYI NY* 

8 DYT2IN, 

OYI NSO . 

OZ* 

A DZD2. 

Dzr NV * 

DZT2 IN* 

5 OZINSQ 

CQMMDN/GULF/ 

CUTPT ♦ 

KCUT . 

1 PERIDI 

CpMMON/INDEX/ 

I * 
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1. K* 

COMMON/L IMITS/ 

1 JMAX* 

2 KMAXMl# 

3 XEYOUT 
COMMON/PASS/ 

I PMOMAF, 
COMMON/PLOTT/ 

1 NPLOTl» 

2 ZMAX, 
COMMQN/PULL/ 

1 T I ME ^ 

2 YK2* 
COMMON/PUULC/ 
COMMON/R.r VERS/ 

1 phase' 1 t,.C % 

2 RMGMAF(4)* 

3 UVARl, 
COMMON/RYTE/ 

I LABELO 

common/scale/ 

1 USCALE* 

2 /SCALE 
COMMON/STEP/ 

1 NBAR* 

CQMMON/r IDE/ 

1 TAMPMP^ 

2 TAVGPH# 

COMMON/ rUNE/ 

I AVCOMP 

common/turb/ 

I CVIS» 

COMMON/UNI TS/ 

1 FETCH. 

2 OMEGA « 

3 VREF. 

DATA LCASWY/* KM •, 
DATA LCHANL/* KM • . 
DATA LELA /»ELAP • . 
DATA LE\rtlS /•&-- W •. 
DATA LFRE /^•FRES 
DATA LFRGU /'FRES 
I • I 0 

DATA LGUL /»GULF 
DATA LHEI /«HEIG 
DATA LHR /• HR 
DATA LMMS /• M M 


N 

I MAX . 

JMAXMl 9 
KMAXM2 • 

r PASS. 

PSALT . 

DXD2 ♦ 

NPLQT2. 

/OHSCL 
SYU7) . 

X U8) . 

2 ( 8 ) 

2C <20) 

JRI V(A) . 

PHASE2 . 

RWIDTH (4 ) . 

UVAR2 
r O. 

HSCALE. 

WSCALE . 

MN. 

NWRI TE . 

PHSEMP , 

TAMPPH. 

THGTMP. 

ACCEL . 

CDIF . 

DIFFUS. 

BETA . 

GRAV , 

PI . 

YMAX 

•WRT •,’CAUS*.*EWAY«/ 
•WRT » . • CHAN^ . • NEL <^/ 
'SED •.•T1ME*.*0 »/ 

•SECT’.MCN •/ 

•H • . • 0 •/ 

•K WA • , • TER • , 0 • . 

• I • . • C • / 

’HT . • . •CM •/ 

••SL •/ 


IMAXMl , 

KMAX^ 

NMAX. 

POEPTHt 

PWIDTH 

L. 

PERIOD. 

SYY( 17) . 
Y( 17). 


NRIV. 

RDEPTH(4). 

UAVG. 

LABEL! . 

SSCALE. 

XSCALE. 

MO. 

ISTEP 

PHSEPH. 

T AVGMP. 

THGTPH 

ARTVSC. 

CRlCh. 

V ISC 

BETAD2. 

HREF, 

TREF, 


G* . • ULF • . * WATE* , 
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© >x) 


DATA LNSS /»N-S • . • SECT • , • I ON •/ 

DATA LPLO /♦PLOT*,* ELE*,*VO •/ 

DATA LSAL / * SAL I * » • N I T Y • , • PRO*,*FILF*/ 

DATA LSUR /*SURF*,*ACE • , » PROF * ♦ • I LE •/ 
data LTIO /*TIDE*,* PER • , • I ODO * , * */ 

DATA LVCL / * VELO * , *C I TY » , ♦ VEC*«*TORS*/ 

DATA LWAT /*WATE*,*R SC * . • ALE •/ 

DATA LIMPS /*l,M/*»»S •/ 

CALL IDENT(*1303 88532 FHP • ) 

TO = LT 

REVmND 10 

DGORD = laO.O / PI 
PID2 = 0.5 * PI 
10 CALL PLOT! 5,00, 12. 0,-3) 

C 

C *NPLOTl, NPLOT2 ARE THE FIRST AND LAST FRAME NUMBERS FOR THE 

C sequence of frames to be plotted. A FRAME IS A COMPLETE SET 

C OF DATA describing THE FLCW FIELD AT A GIVEN INSTANT IN TIME, 

C THE FRAME NUMBER MULTIPLIED BY NWRITF EQUALS THE TIME INDEX N 

C IN THE MOBILE BAY PROGRAM. 

C 

READILR, lOCO) NPLOTl , NPLCT2 
IFiNPLOTi.EQ.-l ) STOP 
C 

C ❖NXY, NXZ, NYZ ARE THE NUMBER OF CROSS-SECTIONS IN THE XY-, XZ-, 

C AND Y2-PLANES. RESPECTIVELY, TO BE PLOTTED FOR EACH FRAME, 

C 

READ<LR,1000) NXY , NXZ, NYZ 
C 

C *KSECrN, JSECTN, ISECTN ARE THE SPEC IF IC 'VALUES OF THE SPATIAL 

C INDICES FOR EACH SECTION IN THE XY-, XZ-, AND YZ-PLANES, 

C RESPECTIVELY, 

C 

READILH, 1000) (KSeCTNiL), L = 1, NXY) 

READ! LR , 1000) { J SEC TN { L.) , • L = 1. NXZ) 

READIER, 1000) (ISECTNIL), L = 1, NYZ) 

C 

C generate plots for above SEQUENCE OF FRAMES, 

c 

DO 350 L = NPLOTl, NPLCT2 
C 

C READ DATA FOR GIVEN FRAME AND SCALE' THEM. 

C 

CALL PREP 
C 

C PLOT VELOCITY VECTORS IN XY-PLANE CRCSS-SECT 1 ONS . 

c 
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IFCNXY.hQ. 0) GO TO 165 
DO 9C M = I » NXY 
K = K SEC TN < M > 

CALL XYbRDl 

CALL PLOT( 2. 25, -t.00,-3) 

CALL DODAD2 

CALL PLUT( -2.25, 1.0C.-3) 

CALL VTHICK(l) 

CALL PL0T( 2.50, -4.00,-J) 

VECTOR = USCALE / HREF 
CALL PLOT( 0.00, VECTOR, 2) 

CALL SYM80L( 0 . 0 0 ♦ VEC TOR , 0 . 07 , 2, 0.0,-l) 

CALL SYMBOL ( . 0. 20 , VEC TCR^sO . 5-0 . 07 , 0 . 1 4 , LIMPS, O.C, 5) 

CALL PLOT( -2.50,. 4. 00, -3) 

CALL PLUT( 0.30, -7,25,-J) 


CALL 

SYMBOL! 

0^70t 

0.00,0,14, 

LVEL, 

0.0 


16 > 

CALL 

SYMQOL( 

0 . CO r 

-0,25,. 3. 14, 

LPLO, 

0 .0 


1 1 } 

ELEV 

= HREF 

* < 1 • 

0 - Z(K) / ZSCALE) 




CALL 

NUMBER! 

!• 54* 

-0.25,0.14, 

ELEV , 

0.0 


2) 

CALL 

symbol ! 

2* 24 ^ 

-0.25,0. 14, 

LVMS , 

0.0 


6 ) 

CALL 

SYMBOL! 

0* CO* 

-0.50 ,0.14, 

LT ID, 

O.C 


1 J) 

CALL 

NUMBER! 

1*S2* 

—0.50 .0. 14, 

PFRICD, 

0 .0 


2) 

CALL 

SYMBOL! 

2*52* 

-0.50,0. 14, 

■ LHR., 

c .c 


3) 

CALL 

SYMBOL! 

0* 00* 

-0,75,0.14, 

LELA, 

0.0 


14) 

CALL 

NUMBER ( 

1*96* 

-0.75,0.14, 

time. 

0 .0 


2 ) 

CALL 

SYMBOL! 

2*80 * 

-0.75,0. 14, 

LHR, 

O.D 


n 

CALL 

PLOT! -0 

. 30 * 

7. 25, -3> 






FOR THIS PLOT Y IS ALONG THE PAPER ROLL ^^lD X IS ACROSS THE 
PAPER ROLL. 

DO 80 I = 1, IMAX 
XSTRT = X<I) 

• IFd.NE.U GO TO 4 0 
DO 30 NN = I, NRIV 
J = JRIV(NN) 

YSTRT = Y<J)- 

IF(K,GE.KFLQ0R(I ,J).) GC TC 20 
IF{ J.EQ, JWAG) GO TO 15 

CALL SYMQOL( YSTRT, XSTRT, 0.07, 6, O.O.-l) 

GO TO 3'.< 

15 KC = KMXC - KMAX -I- K 

UCl == UCU.KC) 

XEND = XSTRT - UCl 
THETA = 0.0 

IF(UC l.OT.O.O) THETA = 180.0 
CALL PLCiri YSTRT, XSTRT, 3) 
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c 

c 

c 


20 


JO 

40 


5C 


6C 


70 

«0 


«30 


CALL SYMBOL ( YSTRT, xeNDt 0 . 07 , 
GO TO JC 

U1 = U(I.J«K) + O.COOOOl 

VI = V( I » J»K) 

XEND = XSTRT - Ul • 

VEND = YSTRT + VI 

THETA = < ATAN2(-U1 » VI ) - PI02) 

CALL PLUT( YSTRT. XSTRT. J) 

CALL SYMBOL ( YEND, XEND .0.07. 
CONTINUE 
GO TO dC 
JW = JWEST(I) 

JE = JEAST(I) 

DO 70, J = JW, JE 
YSTRT = Y(J) 

IFlK.GE.KFLOORd . J) ) GC TC 60 
IF< J.EQ. JWAG) GO TO 50 
CALL SYMBOL! YSTRT, XSTRT, 0.07. 
GO TO 7 0 

KC = XMXC - KMAX + K 

UCl = UC< I .KC) 

XEND = XSTRT - UCl 
THETA = 0.0 

IF(UC l.GT.O.O) THETA = 180.0- 
CALL PLOT! YSTRT, XSTRT, 3) 

CALL SYMBOL! YSTRT, XEND. 0.07, 
GO TO 7 C. 

Ul - Ud.J.K) + O.COOOOl 

VI = V d . J.K ) 

XEND = XSTRT - Ul 

YEND = YSTRT + VI 

THETA = ! ATAN2(-U1 ,V1 ) - PID2) 

CALL PLOT! YSTRT. XSTRT, J) 

CALL SYMDOL! YEND, XENO.0.07, 

continue 

CONTINUE 

CALL EUPLOTlO.n 

CALL PLOT! O.OC, O.CC.-J> 

CONTINUE 


PLOT SALINITIES IN. XY-PLANE 


DO 14C M a- 1 , NXY 
K = KSECTN(M) 

CALL XYSROl 

CALL PLOT! 2,25, -1.00. -3) 
CALL U00AD2 


2, THETA, -2) 


* OGGRO 

2, THETA, -2) 


3, 0.0. -1) 


2, THETA, -2) 


* DGOHC 

2 .THETA , -2) 


CRQSS-StO IONS. 
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CALL 

PLOT< - 

2-25 

» 1.00.-3) 







CALL 

VTHICKC 1 ) 








CALL 

PLOT! 

1 *50 

. -•3.C0t-‘3) 







CALL 

SYMBOL! 

0* 

00, 0.00,0. 

14 

• 

LWAT, 

0*0 

* 

1 1 > 

CALL 

symbol ! 

0. 

CO, -0.25-»0. 

14 

9 

LFRE* 

0 .0 

f 

9 ) 

CALL 

SYMBOL { 

0* 

00, -0.50.0. 

1 4 

9 

LGUL^ 

0*0 

* 

10 ) 

CALL 

PLOT! - 

1 .50 

, 3. 00, -3) 







CALL 

PLOT! 

0.30 

, -7. 25, -3) 







CALL 

■SYMBOL! 

0. 

70, 0.00*0. 

14 

9 

LSAL* 

0*0 

9 

16 ) 

CALL 

SYMBOL! 

0. 

CO, -0.25.0. 

14 

9 

LFLQf 

0 .0 

9 

1 1 ) 

ELEV 

HREF ^ 

! 1 . 0 - Z ( K) 

/ 

ZSCALE ). 




CALL 

NUMBER! 

1 . 

54, -0.25,0. 

14 


ELEV» 

0.0 

9 

2 > 

CALL 

SYMBOL! 

2. 

24, -0.25.0. 

14 


Lr^MS w 

0.0 

9 

6 ) 

CALL 

SYMBOL! 

0. 

00, — 0.50. U. 

14 


LTID^ 

0 .0 

9 

1 3) 

CALL 

NUMBER! 

1 « 

32, —0.50,0. 

14 


PFRIODf 

0 .0 

9 

2 ) 

CALL 

SYMBOL! 

2. 

52, -0.50,0. 

14 


LHK» 

0.0 

9 

3) 

CALL 

SYMBOL ! 

0. 

CO, -0.75,0- 

14 


LELA, 

C . 0 


1 4 ) 

CALL 

NUMBER! 

1 . 

95, — 0,75.0. 

14 


TIIVE* 

0 *0 

« 

2 ) 

CALL 

SYMBOL! 

2. 

30, -0.75,0. 

14 


LHR. 

0.0 


3) 

CALL 

HLUT! - 

0.30 

, 7. 25, -3) 







DO 130 I = X 

. IMAX 







XSTRT 

= X( I > - 

0.035 








TFd.NE.U GO TO 110 
DO. 100 NN = 1, NRIV 

J = JRIV(NN) 

YSTRT = Y(J) - 0.035 

IF(K.LT.KFLOOR( I , J) .AND. J.tC. JWAG) GO TO >>5 
CALL NUMBER! YSTRT, XSTRT . 0 . 07 , S ( I . J, K ) , O.Or-1) 

GO TO ICC 

95 CALL NUMBER! YSTRT, X STRT , 0 . 07 , SC ! I , KC ) , O.D.-l) 

ICO CONTINUE 
GU TO 130 

1 10 JW JViEST! I ) 

JE ■= J.EA-ST(t ) 

DO 120 J = JW, JE 
YSTRT - Y!J) - 0.035 

IF!K.LT.KFLaOR!I ,J).ANO. J.EC. JWAG) G('. Tf: 115 
CALL NUMBER! YSTRT, XSTRT. 0 . 07 ,S-(I , J . K ) , O.O,-!) 

GO TO 120 

CALL NUMBER! YSTRT, XSTR T , 0 . 07 , SC ! I , KC ) , 0.0,-1) 

CON-TINUt 
CONTINUE 
CALL FOPLOTIO.l) 

CALL PLOT! C.OO, O.CO,-3.) 
lAC CONTINUE 
C 

C PLOT SURFACE HEIGHT PRCFTLES. 
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CALL XYBRUl 

CALL PLOT( 2.25« -1.00. -3) 
CALL D0DAD2 

CALL PLOT! -2.25. 1.00.-3) 

CALL VThlCK(l) 

CALL PLOT( 2.00. -3. 25. -3) 
VECTOR = HSCALE / HREF 


CALL 

SYMBOL! 

o; 00 * 

- VECTOR. 0. 10 

* 13 

. 90.0.-1 ) 

CALL 

SYMBOL! 

0*00* 

0.00.0. 1C. 

13. 

00.0 , -2 ) 

CALL 

SYMBOL! 

C* 00* 

VECTOR. 0. 10. 

13* 

90.0 .-2 ) 

XSTRT 

= 0.10 





YSTRT 

= VECTOR - 

0.035 



CALL 

NUMBER { 

XSTRT. 

YSTRT. 0.07 , 

-100*0 . 

C.C . 0 ) 

YSTRT 

== YSTRT + VECTOR 



CALL 

NUMBER! 

XSTRT* 

YSTRT. 0.07, 

* 

o 

• 

o 

0.0 . 0 ) 

YSTRT 

= YSTRT + VECTOR 



CALL 

NUMBER ( 

XSTRT ♦ 

YSTRT. 0.07. 

100*0. 

0.0, 0) 

CALL 

SYMDOL< 

0. 70* 

-0.70.0.14, 

LHEI * 

90.0 , 10 ) 

CALL 

PLOT( -2 

o 0 0 * 

3. 25, -3) 



CALL 

PLOT( 0 

.30* - 

7. 25, -3) 



CALL 

SYMBOL ( 

0. 70* 

0.00.0.14. 

LSUR* 

0.0,15) 

CALL 

SYMBOL (' 

0 « C 0 * 

-0.25.0. 14. 

LTID* 

0.0.13) 

CALL 

NUM8ER( 

1.82* 

-0,25.0. 14 , 

PERICD. 

0*0* 2 ) 

CALL 

SYMB0L( 

2o 53 ♦ 

-0.25.0.14. 

LHR* 

0.0* 3 ) 

CALL 

SYMBOL ( 

0.00 • 

-0.50 ,0. 14, 

LELA. 

0.0.14) 

CALL 

NUMBER ( 

1.96* 

-0.50,0.14. 

TIME* 

0.0* 2 ) 

CALL 

SYMBOLC 

2*80* 

-0.50.0. 14, 

LHR* 

0.0 * 3 ) 


CALL PLOT( -0.30. 7. 25.-3) 

DO 160 r = 2." I MAX 

JW = JWESTC I ) 

JE = JEASTd ) 

XI == X( I ) 

yw = Y{ JW ) 

YF = Y{JE) 

CALL VTMICK(I) 

CALL PLUT( YE. X I . 3 ) 

CALL PLOT( YW. XI. 2) 

X’2 .T XI + SURF(I.JW) 

CALL PLOT( YW, X2 . 2 ) 

CALL VTHICK(-3) 

DO 150 J = JW» JE 

X2 = XI + SURF( I , J) 

Y2 = Y ( J ) 

CALL PLOT! Y2 , X2 . 2 ) 

ISO CONTINUE 

CALL VTHICK ( 1 ) 
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CALL PLOn YE , Xi , 2) 

16C continue 

CALL eOPLOT(0,n 
les CALL PLOT! 0.00* -5.0C.-3) 

c 

C PLOT VELOCITY VECTORS IN XZ-PLANE CROSS-SECTIONS* 

C 

IFINXZ.EQ.O) GO TO 285 
DO 220 M = 1, NXZ 
J = JSECTN(M) 

CALL PLOT! 2*00* 1.80, -3) 

CALL OODAO 1 

CALL PLOT! -2*00, -1*80, -3)' 

CALL PLOT! 7.20* -1.50, -3) 

CALL DOOAD.2 

CALL PLOT! -7.20* 1.50, -3)’ 

CALL VTHICK(l) 


CALL 

PLOT! 

0^ 

00 


2. 70 .-3) 









CALL 

SYMBOL< 


2* 

lOt 

C.00,0. 

1 4 


LVEL 


r 

.0 


16 ) 

CALL 

SYMHOLI 


0* 

91 * 

-0.25,0. 

14 


LNSS 


O 

« 0 


12 ) 

OFFSET = O.COl 

4c 

HREF * Y(J) 

/ 


XSCALt 






CALL 

NUMBER! 


2« 

59» 

-0.25,0. 

14 


OFFSET 


0 

• 0 


2 ) 

CALL 

SYMBOL! 


3* 

43* 

-0.25,0. 

1 4 


LCHANL 


0 

• 0 


15 ) 

CALL 

SYMBOL! 


0* 

CO* 

— 0 • 50 , 0 • 

14 


LTID 


4 

.0 


1 i) 

CALL 

NUMBER! 


L • 

82* 

-0.50,C. 

14 


PERIOD 


3 

m 0 


2 ) 

CALL 

SYMBOL! 


2 • 

52* 

-0.50,0. 

14 


LHH 


0 

♦ 0 


3 ) 

CALL 

SYMBOL! 


3 m 

29* 

-0.5C ,C . 

14 


LELA 


0 

*3 


14 ) 

CALL 

NUMBER! 


5^ 

25* 

— 0 . S 0 . o . 

14 


TIME 


0 

.0 


2 ) 

CALL 

SYMBOL! 


6* 

09* 

-0.50 ,0. 

14 


LHR 


0 

.c 


3) 

CALL 

PLOT! 

0. 

00 

* 

2. 70.-3) 




‘ 





IF< J 

. EQ. J;VAG) 

GO 

TC 

190 










CALL XZBRDl 
CALL VTHICKCl) 

C 

C FOR THIS PLOT X IS ALONG THE PAPER F^CLL AND Z IS ACROSS THE 

C PAPER ROLL. 

C 

DO 130 t = 1, IMAX 
KBOT KFLOOR ( I , J ) 

IF(KBOT.GT.KMAX) GO TO 180 
XS r«T = - X( I ) 

DO 17C K = KBOT, KMA X 
ZSTRT = Z(K) 

ur = u(i,j';kt + o.'^cocoi 

S«1 - W ( I , J,K ) 

XEND = XSTRT + U1 

ZENO = ZSTRT + V,1 
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THETA s: ( ATAN2( Vitl »U1 > - PiD2> ♦ DGCHO 

CALL PLOT( XSTRT» 2STRT. 3) 

CALL SYMBOL( XEND» ZEND, 0.07, 2, THETA, -2) 

170 CONTINUE 
ISO CONTIi'iUl- 
GO TO 210 
190 CALL CHBRDI 

CALL VTH ICK( 1 > 

DO 20 C r =1, I MAX 
KBOT =s KFLORC( I ) 

XSTRT = - X{ I ) 

DO 200 K = KBOT, KMXC 
2STRT = 2C(K) 

uci ~ uc(r,K) + 0.000001 

WCl = WC( I ,K) 

XENO = XSTRT + UCI 
ZEND = ZSTRT + VICl 

THETA = (ATAN2C WCl ,UC1 ) - PID2) « OGGRD 
CALL PLOT( XSTRT, ZSTRT, 3) 

CALL SYMBOL! XEND, ZEND, 0.07, 2, THETA, -2) 

2CC CONTINUE 
2 1C CALL EOPLOTlO.n 

CALL PLOT! 0.00, O.CO,-3) 

220 CONTINUE 

PLOT SALINITIES IN XZ-FLANE CROSS-SECTIONS. 

00 280 M = 1, NXZ 
J = JSECTN(M) 

CALL PLOT! 7,20, -1.50, -3) 

CALL 001. A02' 

CALL PLOT! -7.20, l.50,-3) 

CALL VTHICKin 


CALL 

SYMBOL! 

0. 

70. 1.80,0. 

N 

O 

LFRGU , 

0 *c 

* 

34 ) 

CALL 

i^LOT! 0. 

00 

, -2.70,-i) 






CALL 

SYMBOL! 

2# 

1C, 0.00,G. 

14 f 

LSAL , 

0*0 


lb ) 

CALL 

SYMBOL ! 

0# 

91, -0.-25»0. 

14 ♦ 

LNSS , 

0.0 


12 ) 

OFFSET - 0.001 


HREF * Y!J) 

/ 

XSCALE 




CALL 

NUMBER { 

2* 

59, -0.25-.C. 

14 ♦ 

OFFSET , 

3 ♦ 0 


2 ) 

CALL 

SYMBOL C 

3- 

43, -0,25,0. 

14 * 

LCHANL, 

0*0 


15 } 

CALL 

SYMBOL ( 

0* 

CO, -0.50,0. 

14 * 

LT ID, 

0*0 


13 ) 

CALL 

NUMBER { 

1 » 

82, — 0.50,0. 

14* 

PE RICO, 

0*0 


2 ) 

CALL 

SYMBOL < 

2^ 

52. — 0.50,0. 

14 * 

LHK, 

0*0 


3 ) 

CALL 

SYMBOL( 

3^ 

29, — 0.50,0. 

14 ♦ 

LELA, 

0*0 


14 ) 

CALL 

NUMBER ( 

5* 

25, -0.50-.0. 

14* 

ri ME, 

0*0 


? ) 

CALL 

SYMBOL( 

6* 

09, -0.50,0. 

14* 

LHR, 

C' * 0 


i ) 

CALL 

PLOK O. 

00 

i 2.70,-J) 
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IF{ J.EQ. JWAG) GO TO 250 
CALL XZHROl 
CALL VTHICK(I) 

00 240 1 = 1, IMAX 

K80T = KFLOORC I . J) 

IF(KBOT.GT.KMAX) GO TO 240 
XSTRT = - X< I ) - 0. 035 
DO -230 K = KDOTi KMAX 
. ZSTRT = Z(K) - 0.035 

CALL NUMBER( XSTRT. Z S TR t , 0 . 0 T . S { I , J . K > , 0.0. -1) 

230 continue 
240 CONTINUE 
GO TO 2 70 
250 CALL CHORD I 

CALL VTHrCK(l) 

DO 260 1=1. IMAX 

K80T = KFLORCI I ) 

XSrpT = - X( I > - C.03S 
DO 2GC K = KBOT. KMXC 
ZSTRT = ZC<K) - 0.035 

CALL NUMBER! XSTRT. ZS TR T . 0 . 07 . SC (I , K ) , C . O . - 1 > 

260 continue • 

270 CALL EOPLOTIO.l) 

CALL PLOT( 0.00. 0. 00.-3) 

2eC CON.TINUU 

c 

C PLOT VELOCITY VECTORS IN YZ-PLANE CROSS-SECT I CNS . 

C 

285 IF(NYZ.Ea.C) GO TO 345 
DO 31 C M = 1. NYZ 
I = ISeCTNlM) 

CALL PLOT! 0.00, 1.80. -3) 

CALL DOOADl 

CALL PL(tT( 0.00. -1.B0.-3) 

CALL PLiJT! 4.00, 1.C0.-3) 

CALL 000AD2 

CALL PLUT! -4. 00, -1.0-0. -3) 

CALL VTHICK(I) 

CALL PLOT! -2.20. -2. 60, -3) 

CALL SYMBOL! 2,10. 0.00,0.14, LVEL, ".C,16) 

CALL SYMBOL! O.yi, -C.. 25,0. 14, LEWS, v.t»l2) 

OFFSET = - 0.001 f HREF * X!I) / XSCALE 

CALL NUMBER! 2.59. - 0 . 25 , 0 .-14 . OFFSET , 0.0, 2) 

•CALL SYMBOL! 3.43, - 0.25 , 0 . 1 4 , LC AS W Y , u.0,16) 

CALL SYMBOL! O.GG. -0.50,0.14, LTID, C.C.li) 

CALL NUMBER! 1.82, - 0 » 50 , 0 , 1 4 , PE R I CD » 0.0, 2) 

CALL SYMBOL! 2.52. -0,50,0.14, LHP. 0.0, 3) 
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CALL 

SYMBOL! 

3.29. -0.50,0.14, 

LELA» 

0,0, 14 ) 

CALL 

NUMBER! 

5.25, -0.50,0.14, 

TIME* 

0.0, 2) 

CALL 

SYMBOL! 

6.09, -0.50,0.14, 

LHR* 

0.0, 3) 


CALL PLOT( 2.20» 2.60»-3) 

JW = JWEST(I) 

JE = JEASTC I ) 

CALL YZBROl 
CALL VTHICK(l) 

FOR this plot Y IS ALONG THE PAPER ROLL AND Z IS ACROSS THE 
PAPER ROLL. 

DO 300 J = JW. JE 
KBOT = KFLOORI I . J) 

IFIKHOT.GT.KMAX) GO TO 300 
YSTRT = V(J) 

00 290 K. -= KBOT, KMAX 
ZSTRT = Z(K) 

VI = Vd.J.KT + 0.000001 

W1 = W(I , J.K) 

VEND = YSTRT + VI 
ZEND = ZSTRT + W1 

THETA ■= ( ATAN2( W1 .VI > - PI 02) * OGORD 

CALL PLOT! YSTRT. ZSTRT. J) 

CALL SYMBOL! YEND. ZEND. 0.07, 2 , THETA .-2 )_. 

290 CONTINUh 
300 continue 

CALL EOPLQT(O.l) 

CALL PLOT! 0.00. 0. 00.-3) 

310 CONTINUE 

PLOT SALINITIES IN Y2-PLANE CROSS-SECTIONS. 

DO 340 M = 1. NYZ 

1 - ISECTN(M) 

CALL VThTICKU) 

CALL SYMBOL! O.CO. 1.8-0,0.07, LFRGU, 0.0.34) 

CALL PLUT( 4.00, L. 00,-3) 

Call oodad2 

CALL PLOT! -4.00. -l.a0,-3) 

CALL PLOT! -2.20, -2.6C.-.T) 

CALL SYMBOL! 2.10, O.CO, 0.14, LSAL, 0.0,16) 

CALL SYMBOL! 0,91. -0.25.0.14, LEWS, 0.0,12) 

OFFSET - - 0.001 # HREF * X!I) / XSCALE 

CALL- NUMBER! 2 , 59 . ' - 0 . 25 , 0 i I 4 , OFFSET , 0.0, 2) 

CALL SYMBOL! 3.43. - 0 . 25 . 0 . I 4 , LC A S WY , 0.0,16) 

CALL SYMBOL! 0.00. -0.50,0,14. LTID, 0.0.13) 
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CALL 

NUMBER { 

1.32. 


50»0.14» 

PERIOD. 

O.C . 

2) 

CALL 

SYM80L( 

2.52. 

-0. 

50.0. 14. 

LHR. 

0 .0 . 

3) 

CALL 

SYMBOL! 

3. 29. 

•-0. 

50.0. 14. 

LELA . 

0.0 . 

14) 

CALL 

NUMBER! 

5.29. 

-“0* 

50.0.14. 

TIME. 

0.0 . 

2 ) 

CALL 

SYMBOL ( 

6. 09* 

-0. 

50.0.14. 

LHR. 

O.Q . 

3 ) 

CALL 

PLOT! 2 

.20. 

2.60 

.-3) 




JW 

JWESK I ) 






J£ 

^ JEAST( I > 






CALL 

YZBRD 1 








CALL VTHICK(l) 

DO 330 J == JW. JE 
KbQT ~ KFLOOR( I • J) 

IF<KBGT.GT.KMAX) GO TO 330 
YS7RT ^ Y(J) - 0.035 
DO 32C K = KBOT* KMAX 
ZSTRT - Z<K) - 0.035 

CALL f'4UM6EH( YSTRTt 2 STRT , 0 . 07 . S ( I . J . K > . 0.0. -I)’ 


32C 

330 

CONTINUE 
CONTINUE 
CALL EOPLOKO.I) 


34C 

CALL PLOT! 
CONTINUE 

0.00. 

. 

o 

o 

. 

o 

345 

350 

CALL PLOT! , 

continue 

0.00, 

6. 00.-3) 


PUT ORIGIN IN BOTTOM LEFT HAND CCRMER OF VARIAN FRAME. 

CALL PLOT( -5.00.-I2.00t~3‘)‘ 

GO TO I 0 
lOOC FQRMAt(BUO) 

END 
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SUBROUTINE DODAD 1 
DIMENSION 
COMMON/SCALE/ 

1 USCALE. 

2 ZSCALE 
COMMQN/UNI TS/ 

1 FETCH, 

2 OMEGA, 

3 VREF, 

DATA UlMMPS/* 1 .MM • , »/S 
DATA LIMPS /‘l.M/'.'S 

GENERATE VELOCITY SCALES FCR VERTICAL CROSS-SECTIONS, 

CALL VTHICKIl) 

VECTOR = USCALE / HREF 

CALL SYMBOL ( VECTOR, 0.C0,0.C7, 2,-R0.0,-2) 

CALL SYMBOL{VECTOR+0. 07, -0,035, 0,07, LIMPS, 0.0, 5) 

CALL PLOT( 0.00, 0.00, 3 ) 

VECTOR = WSCALE / (HREF * 1000,0) 

CALL SYMBOL! 0. 0 0 , VECTOR, 0 , 07 , 2, 0.0, -2) 

CALL SYMBOL! -0, 49 » VECTG R#0 . 5-0 . 0 35 ,0 • 07 ,L1 M MPS ♦ 0.0, 6) 

RETURN 

END 


LIMMPS{2) 
HSCALE , 
WSCALE, 


BETA, 
GRAV , 
PI . 
YMAX 

•/ 

•/ 


LIMPS! 2) 

SSCALE, 

XSCALE, 


BETAD2. 

HREF, 

TREF, 
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PAGE Ig| 
OP POOR QUALITY 


c 

c 

c 


SU8ROLTINE D0DA02 
DIMENSION 

common/plott/ 

1 NPLOTl, 

2 ZMAX, 
COMMON/PULL/ 

1 TIME, 

2 YK 2 # 
COMMON/TIDE/ 

1 TAMPMP, 

2 TAVGPH. 
COMMON/TUNE/ 

I AVCOMP 
COMMON/UNITS/ 
FETCH 


2 OMEGA 

3 VREF, 
DATA LGU 

‘ DATA LHI 
DATA LLO 
DATA LMN 
DATA LST 

data UTI 


/•GUUF •/ 
/•HI •/ 
'/•LQ. •/ 

/•MN •/ 
/•STAG* , 
/•TIDE*/ 


LST(2) 
DX02 f 
NPL0T2 , 
20HSCE 
SY( I 7) , 
X( 18) ♦ 
Z(8) 
PHSE^F , 
TAMPPH , 
JHGTfJiP f 
ACCEL , 

BETA ♦ 
GRAV » 

PI , 

YMAX 


GENERATE GULF TIDE GAGE. 


CALL VTHICKII) 

CALL SYMBOL! 0# C 0 ♦-TAMPMP ♦ C • 1 0 , 1 

CALL SYMBOL! 0,00*' 0,00, O.IO* 13 

CALL SYMBOL! 0# 0 Q, TAMPMP ♦ 0 . I 0 . 13 

XSTRT = -0,24 

YSTRT = - TAMPMP - 0*035 

CALL SYMBOL! XSTRT . YSTRT, 0.C7, LLO 

YSTRT = YSTRT 4- TAMPMP 

CALL SY-M80L! XSTRT. YSTRT. 0*07. LMn 
YSTRT = YSTRT + TAMPMP 

CALL SYMBOL! XSTRT . I Y S TR T . C . 0 7 , LHI 

TibSCL THGTMP - TAVGMP 

CALL SYMBOL! 0- 1 0 . TI D-SCL. 0 . 07 , 2 

DTHTMP = SIN!2*^ ^ P I (TIME - PHSE 

THETA = 0*0 

IF (DTHTMP^LT. 0*0) THETA = 180*0 
CALL SYM0OLC 0 # I 8 t T I D SCL . 0 • 07 . 2 

CALL SYMB0L( -0*14. -0*40.0.07. LGU 

CALL SYMBOL! -0*14.-0*505.0.07. LTI 

CALL SYMaQL(-C. 175. -0*61.0.07. LST 

RETURN 


L. 

PERIOD. 

SYY! 17) . 
Y( 17) . 

PHSEPH. 

TAVGMP. 

THGTPH 

ARTVSC* 

BETAD2. 

HREF. 

TREE. 


. 90.0.-1 ) 
90*0 .-2 ) 
90*0, -2) , 


0 * 0 . 2 ) 

0 . 0 * 

0 * 0 . 2 ) 

90.0> -1 ) 

') / PERIOD) 


THETA* -I ) 
C.O . 4 ) 
0 * 0 * 4 ) 
Q.O* 5) 



ORIGJNAU PAGE IS 
OE POOR QUALITY 


END 
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SUBROUTINE PREP 
LOG rCAL 

DOUBLE PRECISION 
COMMQN/ACCT/ 

1 QSOOr<7), 
COMMON/BARS/ 

I UBAR^ 
COMMON/BNKCRO/ 

1 JE • 

2 JWEST(22>^ 
COWMON/CHNNEL/ 

1 JWAG« 

2 KMXCM2 
COMMON/FLOQR/ 
COWMON/FLOORC/ 
COWMON/FLOWl/ 

1 U( 18 . 17 ,08) , 
COWMON/FLOV/2/ 

I DUDT( 18f 17*08) , 
CQMMON/KLOV/Cl/ 

I UC ( 1 6 * 2 0 ) * 

COMMON/FLO WC2/ 
i DUCOr(l8*20) 
COMMON/FORCES/ 

I FW INOY( 18,17)* 
COMMON/FORTNO/ 

1 lW 

COWMON/GRIO/ 

1 DX* 

2 DXINSQ* 

3 0YT2IN, 

4 DZD2* 

5 DZINSO 
CQMMGN/GULF/ 

I PERIDI 
COWMON/INDEX/ 


I STEP, 

SURF( 18* 17) * 
QD0T(7) * 

QSNET (7) 
PTCTIN* 

V0AR 

EAST(22) * 
JEAST<22 ) * 
SOUTH (22 ) * 
COEPTH. 

KMXC * 

KFLGCR(18*17) * 
KFLQRC <18)* 

P( 18* 17* 08 ) * 

V ( I 3 *17 *08) , 
SURF * 

OVDT (18*17*08 ) 
PC( 18,20 ) * 

V^C ( 1 8 *20 ) 

SURFC * 

F* 

TOPLYR 

LR* 

DT, 

DXINV * 

DY* 

DYINSQ, 

DZINV* 

CUTPT* 

I , 


I K, 

COMMON/LIMI TS/ 

1 JMAX* 

2 KMAXMl*, 

3 KEYOUT 
COMMON/PASS/ 

I PMGMAF* 
COMMON/PLOTT/ 

1 NPLOri, 

2 ZMAX* 
CONMON/PULL/ 


N 

I MAX * 
JMAXMl * 
KMAXM2 , 

I PASS , 
FSALT * 
DXD2* 
NPL0T2 * 
ZOHSCL 
SY(17) * 


KEYOUT 
SURFC( 18 ) 
ONETt?)* 

SOAR* 

UMAX* 

JW* 

WEST( 22 ) 
CWXOTH* 

KMXCMl * 

Z8( 18*17) 

ZBC( 18 ) 

S( 18* 17*08 ) * 
W(18* 17* 08 ) 
DHDT { 18* 17 )* 

SC( 18*20 ) * 

DHCDT( 18 )t 

FWINOXC 18* 17 ) * 

LT* 

DTD2* 

DXT2 IN* 

DY INV * 

DZ* 

0ZT2IN* 

KCUT* 

J* 

I MAXM I * 

KMAX* 

NMAX* 

PDEPTH* 

PW lOTH 

L, 

PERIOD* 

SYY( 17)* 




1 TIME* 

X ( 1 8 } * 

2 YK2* 

Z(8) 

COMMON/P ULLC/ 

2C(20) 

common/rivers/ 

JRI V(4) 

1 PHASEl# 

PHASE2 * 

2 RMQMAF<4), 

RWIDTH{4) 

3 ‘ UVARI# 

UVAR2 

COMMON/R YTE/ 

10, 

1 LABELO 


COMMON/SCALE/ 

HSCALE , 

1 USCALE# 

WSCALE , 

2 ZSCALE 


COMMON/STEP/ 

MN, 

1 NBAR* 

NWRITE, 

COMMON/T IDE/ 

PHSEI^P, 

1 TAMPMP* 

TAK»PPH , 

2 ^ TAVGPH* 

THGTMP, 

COMMQN/TUNE/ 

ACCEL, 

1 AYCOMP 


COMMDN/TLRB/ 

CDtF, 

1 CVIS* 

DIFFUS, 

COMMON/UNITS/ 

BETA, 

1 FETCH* 

GRAV, 

2 OMEGA* 

PI , 

3 VRHF* 

YMAX 


c 

C LOCATE DESIRED FRAME ON TAPE* 

C 

IF(N*NE*0) GO TO IC 

N r: 1 

IMAX ~ 18 

JMAX ~ 17 

N13AR 6C 

NWRITE = 375 

NMAX = 6C00 ’ 

GO TD 1C 
10 = LT 

CALL REED 
10 fg ^ N + 1 

IF(N*NE.NBAR’fr <N/NBAR) ) GO TC 20 
10 ^ LT 

CALL HEE02 

20 IF(N,NE*NWRITE*( N/NWRITE ) ) GO TO 30- 
10 = LT 

CALL REED 

IF(N*GE*NPL0Tl5tJNWRITE) GO TC ‘50 
30 IF{isi-GE-NMAX) GO TO 40 


Y( 17 


NRIV* 

RDEPTH(4>* 

UAVG* 

LABEL I* 

SSCALEf 

XSCALE, 

M0» 

ISTEP 

PHSEPH* 

TAVGMP* 

THGTPH 

ARTVSC* 

CRICH* 

V ISC 
BETAD2* 
HREFf 
TREF, 
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§0 

ii 


GO TO 10 
'lO WRltE(LW»1000) 

STOP 

c 

C GENERATE SCALE FACTORS AND CONVERT FROM NONDI MENS lONAL VAHI- 

C BLES TO VARIABLES SCALED FCR PLOTTING* 

C 

SO THGTMP = TAVGMP + TAMPMP * COS<(TIME - PHSEMP) ♦ PERIOD 
TIME = TIME * TREF / 3600.0 
PHSEMP = PHSEMP * TREF / 3600.0 
PERIOD = 2.0 * PI * TREF / (3600.0 * PERICI) 

IMAXMl = IMAX - 1 

JMAXMl = JMAX - 1 
KMAXMl = KMAX 1 
XSCALE = 6.50 / X ( I MA X ) 

ZSCALE = 1.5 
I =0 

60 I =1+1 

X( I ) = - X( I ) ♦ XSCALE 

IF( I.LT. IMAX) GO TO .60 
J = 0 . 

70 J = J + 1 

Y(J) = Y(J) ♦ XSCALE 
IF< J.LT. JMAX) GO TO 70 
K =0 

80 K = K + I 

Z(K) = Z(K) * ZSCALE 
IF(K.LT'.KMAX) go to 80 
ZMAX . = Z(KMAX) 

K = 0- 

85 K = K + 1 

ZCIK) = ZC(K) ^ ZSCALE 
IF(K.LT.KMXC ) GO TO 85 
LI =0 

86 II =11 + 1 

SOUTH(II) = - SOUTH(II) ♦ XSCALE" 

EAST(II) = EASTUI) * XSCALE 

WE-ST(ir) = W£.ST(II) « XSCALE 

lF( 1 1 .LT. I IMAX) GO TO 86 
USCALE =2.5 
WSCALE = 500.0 

HSCALE =2.5 

SSCALE = 10.0 

ZOHSCL = ZSCALE / HSCALE 

DO 130 1=1. IMAX 

DO 110 J = 1, JMAX 

IF(KFLOOR( I , J) .LT.KMAX) GO TC 90 
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UU UiJ 


SURF{ i* J ) = 0. 0 

ZB(I*J) = Z8{I*J) ♦ ZSCALE + 0.225 

GO TO 110 

<i0 SURF(I»J> = SURF(I.J) ♦ HSCALE 
ZB(I.J) = ZBd.J) * ZSCALE 
K80T = KFLOOR( I , J) 

DO 100 K = KBOT. KMAX 
U(I.J.K) = U(I.J.K) ♦ USCALE 
V(I>J.K) = VU.J.K) * USCALE 
W(I.J.K) = W(I.J.K) ♦ ViiSCALE 
100 S(I.J.K) = Sd.J.K) * SSCALE 
110 CONTINUE 

ZBCd) = ZBCd) * ZSCALE 
SURFC ( I ) = SURFCd) * HSCALE 

KBOT = KFLORCl I ) 

DO 120 K = KBOT, KMXC 
UC(I.K) = UCd.K) ♦ USCALE 
WC(l.K) = WCd.K) * WSCALE 
120 SCd.Ki = SCd.K) # SSCALE 
130 CONTINUE 

OX = OX ♦ XSCALE 

DX02 = O.S * DX 
PWIOTH = PWIDTH. * XSCALE 
THGTMP = THGTMP * HStALE 
TAMPMP = TAMPMP * HSCALE 
TAVGMP = TAVGMP # HSCALE 

PRINT FRAME I DENT IF I CAT I CN . IF THIS IS THE FIRST FRAME 
PLOTTED. PRINT SCALED GECMETRY. 

WRI TEILW.lOOl > L, LABELI 
IFIL.NE.NPLOTI ) GO TO 140 

WR ITE (L W. 1 002 > HSCALE. SSCALE. USCALE, WSCALE, XSCALE. ZSCALE 
WRITEtLW.l CCU3) 

WRITE(LW,1004) (I. Xri). I = 1. IMAX) 

WRITEILWi I 0C5> 

WRITE (LW, I 004)- (-J, Y(J), J = T. JMAX) 

WR ITE (LW, I 006 ) 

WRITE(LW.1004) (K, Z(K), K = 1. KMAX) 

‘ WRITEILW. 10a7) 

WR I TE (LW, 1 004) (K, ZC(K), K = 1. KMXC) 

140 WR I TE (LW, 1 COS) 

RETURN 

1000 FORMA T< ///,5X. ’RAN OUT CF. INPUT DATA.*) M 

1001 FORMA T( ///,5X, *L = '.TS.' LABF.LI = '.I3) ^ 

10C2 FORMAT! 5X. -'HSCALE = • ,F8 . 3 , / . 5X , • S SCALE = • . F8 , 3 . / , 5X , • USC ALE = ', 



1 PG»3*/*5X**WSCALE — •»FS#3»/»5K**XSCALE — **FS*3*/*5Xt 

2 'ZSCALE = ».F8.3> 

1003 FORMA T( / .3X. • I X ( SCALED )•»/ ) 

lOOA FDRMAT</*5X,I2.F9.2J 

1005 FORMA r(/»5X, • J Y < SCALED )'♦/ > 

1006 FORMAT! /.5X, • K 2 ( SCALED )•♦/ > 

1007 forma T( / »5X» • K ZC ( SC ALEO ) • . / ) 

1008 FORMA T( /*5X* •PREPARATORY CALCUL AT I CNS • COMPLETED .* ) 

END 
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If 

fi'S’ 




SUePOUTINE REED 

c 

C SUBROUTINE FOR I/O TQ SEQUENTIAL STORAGE DEVICE# 

C 


LOGICAL 

ISTEP, 

KEYOUT 

DOUBLE PRECISION 

SURF{ 18,17) , 

SURPCC 18 ) 

common/acct/ 

QDGT<7) , 

QNET< 7) • 

1 QS00T(7), 

QSNET(7) 


COMMON/HARS/ 

PTCTIN, 

S0AR# 

1 UBAR, 

V8AR 


COMMON/BNKCRO/ 

EAST(22) , 

I IMAX » 

1 JE . 

JEAST (22 ) , 

JW» 

2 JWESr<22)« 

SOUTH(22 ) , 

WEST (22) 

CQMMON/CHNNEL/ 

CDEPTK, 

cwr DTH# 

1 JWAG« 

KMXC , 

KMXCM 1 , 

Z KMXCM2 



COMMUN/FLOQR/ 

KFL0CR( 18, 17) , 

Z3{ 18*17) 

cqmmon/floorc/ 

KFL0RC(18), 

ZBC( IS) 

COMMUN/FLOVgi/ 

P( 18.17,08) , 

S( 18* 17*08 ) 

1 U( 18,17,08) . 

V( 18,17,08). 

W< 18* 17*08 ) 

CQMMON/FLOW2/ 

SURF , 

OHDT( 18*17) 

1 DUOT< 18, 17,08) » 

OVOT(18,17,08) 


COMMON/F-LOWCl/ 

PC(13,20), 

SC( 18*20 ), 

1 UC(18,20), 

WC(18,2Q) 


COMMON/FLOWCa/ 

SURFC, 

DHCDTC 18 ) * 

1 DUCDT(L8,20) 



CQMMON/FORCES/ 

F, 

FWINDX( 13* 1 

1 FWINOYI 18,17) , 

TOPLYR 


COMMON/GRIO/ 

DT. 

DTD2* 

1 OX , 

OXINV, 

0XT2IN* 

2’ DXINSQ, 

OY, 

UY (NV* 

d DYT2IN, 

DYINSQ, 

DZ* 

4 DZ02, 

DZINV, 

DZT2IN* 

5 DZINSQ 



COMMON/GULF/ 

CUTPT , 

KCUT* 

1 PERIOr 



COMMQN/LIMI TS/ 

IMAX, 

IMAXMl , 

1 JMAX, 

JMAXMl , 

KMAX* 

2‘ KMAXMl, 

KMAXM2 , 

NMAX* 

3 KEYOUT 



COMMON/PASS/ 

IPASS, 

p depth* 

1 PMOMAF, 

PSALT, 

PWIOTH 

COMMON/PULL/ 

SY( 1 7) , 

$YY( 17 ) * 

1 TIME, 

X( 18) , 

Y{ 17)* 

2 YK2, 

Z (8) 


commqn/pullCz 

ZC(20) 


common/rivers/ 

JRI V(4) ♦ 

I V » 
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1 PHASEl* 


PHASE2 ♦ 


ROEPTHl 4 ) « 


2 RM0MAF(4)* 


RWIDTH (4 ) 

* 

UAVG* 


3 UVARl* 


UVAR2 




COMMON/RYTE/ 


10# 


LABEL I # 


1 LAbELO 






COMMON/STEP/ 


MN, 


MQ, 


1 NBAR* 


NWRI TE * 


ISTFP 


COMMON/r IDE/ 


PHSEMP* 


PHSEPH# 


1 tampmp* 


TAMPPH # 


TAVGMP* 


2 TAVGPHt, 


THGTMP , 


THGTPH 


COWMON/f UNF,/ 


/.OCC^ , 


ARTVSC# 


1 AVCOMP 






common/turb/ 


COIF # 


CR I CH# 


1 CVIS* 


DIFFUS # 


Vise 


COMMON/UNI TS/ 


BETA* 


BET AD2# 


1 FETCH* 


GRAV* 


HREF* 


2 OMEGA* 


PI * 


TREF* 


3 VREF* 


YMAX 




READ{ IQ) ACCEL# 

ARTVSC 

:* BETA# 

CDEPTH* 

COIF* CUTPT* 

evis* 

1 CWIDTH* DT* 

OX* 

OY* 

DZ* 

FETCH, HREF, 

I IMAX* 

2 IMAX* IPASS* 

JMAX * 

JWAG * 

KCUT * 

KMAX^ KMXC* 

LABEL 1* 

3 DUM* NBAR* 

NRI V* 

NMAX* 

NWRITE* 

PDEPTH^ PERICI* 

PMOMAF# 

4 PTCTIN* PWIDTH# 

TREF# 

VREF * 

YMAX ' 




REAO( lO) 
R£AD( 10) 
REA0( IQ) 
READ! lO) 
READ( 10) 
REAO( 10) 
READ! rO) 
READ( 10) 


SOOTH{ I ) • 
J WE S T { I ) 
J)* ZB (I 
ZBC ( I ) . 
♦ I = 


10 ) 
10 ) 
lO ) 
ID) 


(EAST( I ) « 

( JEAST{ I ) ♦ 

( (KFLOORI I < 

( KFLORC Cl ) » 

{ ( (F( I , J,K) 

( ( ( S( I , J,K) 

( ( (U< t . J.K) . 

{ ( < V { I . J » 1C) , 

( ( (W( I . J.K) * 

( (DHDT( I , J) » 

( ( (DUDTCI .J,K) , 
< ( (DVDTC I , J.K)-, 
( (PCf I ,K) ,• SC< I 
KMXC ). 

(DHCOT( I ) 


WEST(I). I = 1, 

♦ I = 1. I MAX) 
*J.). I = 1* I MAX) 
1 = 1, I MAX ) 

1 , IMAX) , J = I , 
I ; 1 MAX) , J = I , 
1 , I MAX) , J = 1 , 

1 ♦ I MAX) , J = 1 , 
1 , I MAX) , J = I . 
1 , IMAX), J - 1 

IMAX) 

IMAX ) 

,K) 


, 

- 1 
: I 
UC( I 


J = 
J = 
WC( I , 


* 

1 

I 

K ) 


I IMAX ) 

, J = I 

JMAX ) , 
JMAX) , 
JMAX ) . 
JMAX ) , 
JMAX ) , 
JMAX ) 

. JMAX) 
. JMAX ) 
,1 = 1 


(OUCDTdtK), K = 1, KMXC). SURPC(I), 1 = 1, 


READ! 

READ{ 

■ REAOIIO) (( (DUDTCI , J.K) , I 
READ( ID) <( (DVDTC I . J.K)-, I 
READ CIO) ((PCfl.K),- SCCI.K) 

I K = 1. 

HEADC 10) 

I IMAX) 

READ( 10) ( (FWIMDXC I , J) . FWINOYCI.J), I = 1, IMAX), J = 

READ! 10) CSYCJ), SYYCJ), Y(J), J = I, JMAX). (X(I). I 
r (Z(K), K = 1. KMAX) . (ZCCK), K = 1, KMXC) 

READC-IO) (JRIVCI). RDEPTHCI), RMOMAFCI), RWIOTH(I). I 
1 PHASEl, PHASE2. UAVG , UVARl. UVAR2 
REAOC IO-) ,PHSEMP , PHSEPH, TAM.PMP, . TAMPPH , TAVGM°, TAVGP 
ENTRY REED2 

REAOCIO) (QDOTCL), QNET(L), QSOCTCL), CSNETd.), L = 1. 


JMAX ) 

K = I, KMAX) 

K = 1, KMAX) 

K = 1 , KMAX > 

K = 1. KMAX) 

K = 1. KMAX) 

K = 1. KMAX) 

K = 1. KMAX) 

IMAX ) . 


1. JMAX) 

= 1. IMAX), 

= 1, NRIV), 

h 

7), TIME 
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READ( 10) SBAR. UBAR« VBAR 

READ( 10) ((SURFd.J), I = 1, IMAX). J 

RETURN 


1, JMAX) 




SOBROUTINE XYBRO 1 
LOGICAL 
LOGICAL 
DIMENSION 
1 L50KM(2) 

DOLBLE PRECISION 
COMMON/ACCT/ 

1 QSDOT(7)„ 
COMMON/BARS/ 

1 U0AR, 
COMMON/ONKCRD/ 

1’ JE» 

2 JWESTC22)» 
COMMON/CHNNEL/ 

1 JWAG« 

2 KMXCM2 

common/floor/ 

COMMON/FLOORC/ 

COMMQN/FLO\«l/ 

X U{ 18* 17,08) * 
COMMON/FLO W2/ 

1 DUOT( 18,17,08 ) , 
CQMMON/FLOWCl/ ' 

I uc(ia,2o>, 

COMMON/FLO WC2/ 

1 DUCDT( 18,20) 
COMMON/FORCES/ 

1 FWINOYI 18,17) , 
COMMON/GRTO/ 

t DX, 

2 DXINSQ, 

3 DYT2IN, 

4 OZD2, 

5 D2INSQ 
COMMON/GULF/ 

1 PHRIDI 
COMMON/ INDEX/ 

1 K, 

COMMQN/LIMITS/ 

1 JMAX, 

2 KMAXMl, 

3 KEYOUT 
COMMON/PASS/ 

I pmqmaf, 

COMMON/PLOTT/ 

1 . NPLOTl, 

2 2MAX, 


FLAG 


ISTEP, 

KEYOUT 

LN10KM<2 ) , 

L30KM( 2) , 

SURF (18,17) , 

SURFC( 18 ) 

QOQT (7) , 

QNET<7) • 

QSNET(7) 


PICT IK, 

S8AR, 

VBAR 


£AST(22) , 

UMAX, 

JEAST<22) , 

JW, 

S0UTH(22 ) ♦ 

WEST ( 22 ) 

CDEPTH, 

CWIDTH, 

KMXC » 

KMXCMl , 

KFLCCR ( la, 17) ♦ 

ZB( 18,17) 

KFLORC(ia) , 

Z8C( 18 ) 

P( 18,17,08) , 

S( 18, 17,08 ) 

V(18,17,0B) , 

W( 13, 17, 08 ) 

SURF , 

DHOT( 18, 17 ) 

OVOT ( 1,8 , 17,08) 


PC( 10,20), 

SC( 18,20 ) , 

WC(18,20) 


SURFC, 

DHCDTC 18), 

F , 

FWINDXC IB, 1 

TOPLYR 


DT, 

DTD2, 

OXINV, 

DXT21N, 

DY, 

DYINS/, 

DYINSQ, 

DZ, 

DZI NV , 

DZT2IN, 

CUTPT, 

KCUT, 

I , 

J , 

N 


I MAX, 

IMAXMl , 

JM-AXMl , 

KMAX, 

KMAXM2 , 

NMAX, 

IPASS, 

PDEPTH, 

PSALT , 

PW lOTH 

DXD2 , 

L, 

NPLOT2 , 

PER lOD, 

ZOHSCL 
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uuu 


COMMQN/PUL.L/ 

SY(17) , 

SYY( 17)* 

1 T I ME f 

X( 18) , 

Y( 17) * 

2 YK2* 

Z(8) 


COMMON/PULLC/ 

ZC(20) 


COMMUN/RI VERS/ 

JRIV(4) ♦ 

NRIV. 

1 PHASE U 

PHASE2 * 

RDEPTH(4 ) 

2 RM0MAF(4) » 

RWIDTH <4 ) • 

UAVG* 

3 UVARls 

UVAR2 


COMMOM/RYTE/ 

10. 

LABEL I* 

1 LA BEL 0 



COMMON’/ STEP/ 

MN. 

MQ* 

1 NBAR» 

NWRI TE. 

I STEP 

common/scale/ 

HSCALE « 

SSCALE* 

1 USCALE* 

WSCALE * 

XSCALE* 

2 ZSCALE 



COMMON/TUR0/ 

COIF » 

CRICHf 

1 CVISf 

DIFFUS. 

Vise 

COMMDN/UNI TS/ 

BETA. 

BHTAD2* 

1 FETCH f 

GRAY. 

HREF* 

2 OMEGA* 

PI * 

TREF*' 

3 VREF* 

YMAX 


DATA LN JlOKM/*-10* • t *KM 

»/ 


DATA LOKM /*0*KM*/ 



DATA L50KM /•SO.K^^^M 

•/ 


DATA L3CKM 

•/ 



PLOT BAY OUTLINE. 


CALL VTHICKC2) 

JW = JWEST< 1 ) 

JE JEAST< I ) 

YWEST = 0.5 * (YtJW~l) + V<JW)) 


YEAST 

= OoS * (Y( 

JE) + YCJE+ 

CALL 

PLOT( YWEST* 

0*00* 3) 

NN 

= 0 


10 NN 

= NN -1* 1 

1 

J 

^ JRIV(NN) 

1 

Y1 

= Y(J) 

1 

YIM 

=: Y 1 - 0. 05 


YIP 

= Y1 4- 0.05 


CALL 

FJLOT( YIM* 

0.00* 2) 

CALL 

PLOT( YIM-, 

0*25* 2 ) 

CALL 

PLUT< YIP* 

0.25* 3) 

CALL 

PLOTC YIP, 

O.OO* 2) 

rr<NN 

I.LT.NRIV) GO 

TO 10 

CALL 

PLOTC YEAST* 

0*00* 2) 

CALL 

PLOTC YWEST* 

0*00* 3) 
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XPASS XUPASS) 

PWTHD2 = 0*5 ^ PWIDTH 
■ XBANKN = XPASS + PWTH02 
X8ANKS ^ XPASS - PWTHD2 
YWSTIP = Y\nEST 
XAVGIP ^ XU ) - 0XD2 
IPSSMl =: IPASS - 1 
DO 30 1 = 1# IMAXMl 
IP! ^ I + I 

XAVG XAVGIP 

XAVGIP = XAVG - DX 

IF{ IP IMAX) XAVGIP - XAVG - DXD2 
JVi/IP = JWESTdPl ) 

JWIPMl = JWIP - I 
YWEST = YWSTIP 

YWSTIP 0*5 * (Y(JWIPMl) + Y(JWIP)) 
CAUL PLQKYWSTIP* XAVG* 2) 

IF( I #NE. IPSSMl ) GO TO 20 
CALL PLOT! YWSTIP^XBANKN» 2 ) 

’CALL PLUT( YWSTIP--0.25*XBANKN, 2 )> 

CALL PLUT( YWSTIP-0*25 *XfiANKS, 3) 

CALL PLGT< YWSTIP^XBANKS* 2) 

2C CALL PLOT( YWSTIP^XAVGIP» 2) 

30 CONTINUE 

CALL PLOTi YEAST^ O.OOt 3) 

YESTIP =: YEAST 
XAVGIP = XU ) - DXD2 

DO 40 I - U IMAXMt 
IPl « I + I 

XAVG = XAVGIP 
XAVGIP - XAVG - DX 

IF( IP I ♦EQ* IMAX) XAVGIP = XAVG - DXD2 
JEIP = JEAST( IPl ) 

JEIPPl ^ JEIP + I 
YEAST = YESTIP 

YESTIP = 0*5 ^ <Y<JEIP) ^ Y(JEIPPL)) 
CALL PLUT( YESTIP^. XAVG, 2) 

CALL PLOT! YESTIP, XAVGIP,- 2) 

40 CONTINUE 
C 

C GENERATE LENGTH SCALES* 

C 

CALL VTHICKir) 

CALL PLOT( --1.50, 0,0C,-3) 

XPEAL = 10000*0 
50 XREAL = XREAL - ICOOO.O 

XI ^ (XREAL / HREF) ♦ XSCALE 
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c 

c 

c 


CALL SV*VBOL( 0«C0* Xl»0»07. 

[F(XREAL .GT*-50000 *0 ) GO TO 50 
XI ^ XI 0^035 

CALL SYMBOL( -0.44, XI 

CALL SYMBOLC ~ 0* 37 • 035 %0 
CALL PLCT< U50, 0*004-3) 

CALL PL0T{. 0*00* -6*60f-3) 
YREAL = -20000* 0 


13» *0 -p 


07 , 

07, 


L50KN‘» 

LOKM* 


0 - 

0 


13 


6C YREAL YREAL ^ 1C000*0 

Yl = (YREAL / HREF) « XSCALE 

CALL SYMBOLC Yl, 0*00*0*07, 

IP( YREAL *LT* 3000C* 0) GO TO 60 
Yl - Yl - 0*175 

CALL SYMeOL< Yl, -0*20,0*07, L30KM, 

VI =. (-10000.0 / HREF) ^ XSCALE - 0< 

CALL SYM6QL( Yl* - 0 . 2 0 , 0 * 0 7 , LN i 0 KM * 

CALL PL0T( 0,00* 6.60,-3) 

GENERATE 8*5 BY 11-INCH PAGE BORDER. 


0*0 


0*0 

21 

0,0 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
RETURN 
END 


VTHICK( 
PLOT( 
PLOT( 
PLOT( 
PLOT( 
PLOT( 


1 ) 


-3.50 . 

1.50* 

3) 

-3.50, 

-9.50, 

2) 

5.00, 

-9.50 * 

2) 

5,00, 

1 * 50 * 

2) 

-3.50 , 

1 • 50 f 

2) 


-1 ) 

5 ) 
4 ) 

-I ) 

5) 

6 ) 
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SUBROUTINE XZBRDl 
LOGICAL 
DIMENSION 
DOUBLE PRECISION 
COMMON/ACCT/ 

1 QSD0T(7>, 

COMMON/HARS/ 

1 USAR, 
COMMON/BNKCRD/ 

1 JE^ 

2 JWEST<22)» 
COMMON/CHNNEL/ 

1 JWAG» 

2 KMXCM2 
COMMON/FLOOR/ 
COMMON/FLOQRC/ 
COMMON/FLOWl/ 

I U( 18^ 17»08> « 
C0MM0N/FL0W2/ 

I OUDT( 18tl7^06) 

common/flov^ci/ 

I UC (18^20)* 
COMMON/FLOWC2/ 

I DUCDT(l8t20) 
COMMON/r-ORCES/ 

1 FWIND Y( 18*1 7) ♦ 
COMMON/GRID/ 

1 DX* 

2 DXINSQ, 

3 0YT2IN* 

4 DZD2f 

5 DZINSQ 
COMMON/GULF/ 

1 PERIDI 
COMMON/INDEX/ 

1 

COMMON/LIMITS/ 

1 JMAX^ 

2 KMAXMl, 

3. KEYOUT 

COMMON/PASS/ 

1 PMOMAF * 
COMMON/PLOTT/ 

1 NPLOTl^ 

2 ZMAX* 
COMMON/PULL/ 

1 TIME, 


I STEP* 

L50KM(2) 

SURF ( 18* 17) t 
QDCT <7) • 
QSNET(7) 
PTCTIN* 

VBAR 

EAST (22) * 
JEAST(22) * 
S0UTH(22 ) * 
CDEPTH* 

KMXC » 

KFLCCR( 18*17)* 
KFLORCC 18) * 

P( 18 *17 *08) * 

V( 18 *17*08) * 
SURF * 

DVDT( 1 8, 17 *08) 
PC< 18 *20) * 
WC(18*20) 
SURFC. ‘ 

F ♦ 

TOPLYR 

DT* 

DXINV, 

DY* 

DYI NSQ* 

DZINV * 

CUTPT* 

I *' 

N 

IMAX* 

JMAXMl * 

KMAXM2 * 

IPASS* 

PSALT* 

DXD2 * 

NPL0T2 * 

ZOHSCL 
SY(17) * 

X( 18) * 


KEYOUT 

SURFC.< 13) 

QNET (7 ) • 

S8AR* 

I IMAX* 

JW* 

V\fEST (22) 
CWIOTH* 

KMXCMl* 

ZB( 18* 17) 

Z8C( 18 ) 
5(18*17*08)* 

W( 18* 17*08 > 
DHOr ( 18* 17)* 

SC( 18*20 )* 

DHCDT ( 18 ) * 

FWINOX( 18* 17 ) * 

oro2* 

DXT2IN* 

CYINN/ . 

DZ* 

OZT2IN* 

KCUT* 


J * 


f-MAXMl * 

KMAX* 

NMAX* 

PDEPTH* 
PW IDTH 

L* 

PERIOD*, 

SYY( 17 )* 
Y( 17) * 
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NRIV, 

POEPTH<^ )» 
), UAVG, 

LABELI* 

SSCALE^ 

XSCALE, 

MC, 

ISTEP 

PHSEPH* 

T AVGMP, 

THGTPH 

APTVSCt 

CRICH^ 

Vise 

BETA02* 

HREFf 

TREF^ 
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uuu 


CALL PLOT{ XSQUTH • ZBOTIP, 2) 

IF« ZBQTTP#GT*ZMAX) GO TG 30 ‘ 

IF( J.EQ . JWAG) GO TC 30 
CALL VTHiCK(-4) 

CALL PLOT( XSOUTH»ZMAX4-0*3* 3) 

CALL PLOT( XSOUTH f ZBOTIP ♦ 2) 

30 CALL VTHICK{“3) 

CALL PLOT( 0*00* 2MAXt-3) 

SURFIP ^ SURF(1,J) ^ ZOHSCL 
KBOTIP ^ KFLOOR(l,J) 

CALL PLOTtXNORTHtSURFIP* 3) 

DO 70 I ^ 1 > IMAXMl 
IPl = r + 1 

KBOT - KBOTIP 

.KBOTIP = KFLOORI IPl » J) 

SURFl ^ SURFIP 

SURFIP = SURF( IPl^ J) ' « ZOHSCL 
XAVG = - X< I) + DX02 

lF(KBOT.GT*KMAX.AND*KBOTIP.Gr*KNiAX) GO TO 60 
IF(KBOT.GTiKMAX*OR*KBOTIP«GT.KMAX) GO TO 40 
SRFAVG = 0.5 ★ (SURFl + SURFIP) 

CALL PLOT( XAVGfSRFAVG^ 2) 

GO TO 6 Q 

40 IF(KBQT.LT.KMAX) GO TO 50 
CALL PLOT( XAVG.SURFIPt 3) 

GO TO 60 

50 CALL PLOT( XAVG» SURFl. 2) 

6C CONTINUE 

IF( IP l.LT. IMAX) GO TO 7C 

Sf^FAVG = 0.5 ★ (SURFIP ^ THGTMP ^ ZCHSCL) 

CALL PLOTC XSOUTH. SRFAVG. 2) 

70 CONTINUE 

CALL PLOTC O.OOt -ZMAX,-3) 

GENERATE LENGTH SCALES. 

CALL VTHICK( 1 ) 

ZSTRT = 0.00 

IF{ J.EQ . JWAG) ZSTRT = - 2.30 
CALL PUOT< 0.00. ZSTRT.-3) 

XREAL = ““10000. C 
60 XREAL XREAL + ICOOO.O 


XX 

= (XREAL / HREF) 


XSCALE" , 


CALL 

SYMBOL ( XI. 

-0. 

00. 

0.07. I'i, 

0 . 0 . 1 ) 

IF( XREAL.LT.50COC.C) 

GO 

TC 

80 


XI 

= XI - 0. 175’ 





CALL 

SYM80L( XI, 

““0. 

20 . 

0.07, L50KM, 

0 oD . 5 ) 
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c 

c 

c 


c 

c 

c 


CALL SYMBOLC «0.2'0»0*07* LOKM, 0^0^ 4) 

CALL PLOT( 0.00*-2STRT»--3) 

2REAL ^ - 1*0 
IF( J*EQ. JWAG) 2REAL == 6*0 

^0 ZREAL = ZREAL 1-0 

Z1 - (ZREAL / HREF) ^ ZSCALE 


CALL 

SYMBOL ( - 

0^ 

80. 


21 *0.07* 

13, 

90.0 . 

-1 ) 

IFCZREAL.LT.5. 

0) 

GO 

TO 

90 




Z 1 

= Zl - 

0. 

035 






CALL 

SYMBOL ( - 

1 . 

10, 


21 *0.07. 

L5M, 

0.0 * 

3) 

CALL 

SYMBOL ( - 

1 « 

10, 

-0. 

035.0.07 . 

LOM, 

0.0 . 

3) 

IFC J. 

NE • JWAG) 

GO 

TO 

95 





Z 1 

= - (Zl 

+ 

0. 

07) 





CALL 

SYMBOL < - 

1. 

17, 


Zl .0.07* 

LN5M, 

O 

. 

o 

4) 


95 CONTINUE 

GENERATE 8-5 BY ll--rNCH PAGE BORDER. 


CALL PLOT{ 
CALL PLOTC 
CALL HLOTC 
CALL PLOTC- 
CALL PLOT( 
RETURN 


->2.50* 3.50* 3) 

-2.50* -5.00* * 2) 
8.50* -5.00* 2) 
8.50* 3.50* 2) 

-2.50* 3.50* 2) 


SPECIAL 


ENTRY FOR PLOTTING SHIP CHANNEL OUTLINE. 


ENTRY CHBROi 
' XNORTH - - X(l) - DXD2 
ZBOTIP = ZBC(l) 

CALL PLUT( XNORTH * ZMAX+C. 3 f 3) 
CALL VTHICK(-4) 

CALL PLOTC XNORTH *ZBOTIP* 2T 
-CALL VTHICKC2) 

00 IOC 1=1. IMAXMl 
IPl =1-1-1 

ZbOT = ZBOTIP 

ZBOTIP — Z8CC IPl ) 

XAVG = - X( I ) + DX02 
‘ CALL PLOTC XAVG* ZBOT* 2) 
CALL PLOr( XAVG. ZOOTIP. 2) 
ICO continue 

XSOUTH = - XCIMAX) DX02 
CALL PLOTC XSOUTH .ZBOTIP* 2) 
CALL VTHICK(>-4) 

CALL PLOTC XSOUTH .ZMAX + 0.3 ♦ 3,) 
CALL PLOTCXSOUTH.ZDOTIP ,2) 
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ORIGINAL PAGE IS 
OP POOR QUALITY 


GO TO 10 
END 
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SUGROUTINE YZBRDl 
LOGICAL 
DIMENSION 
DOUBLE PRECISION 
COMMON/ACCT/ 

1 QS00T(7), 

COMMON/HARS/ 

1 UBAR* 
COMMON/QNKCRO/ 

1 JE , 

2 JWEST(22) , 
COMMON/CHNNEL/ 

1 JWAG> 

2 KMXCM2 
COMMON/FLOOR/ 
COMMON/FLOORC/ 
COMMON/rLOtal/ 

1 U( la, 17,08) . 

COMMON/FLOW2/ 

I OUOT( 18.17,08), 
COMMON/FLOVkCl/ 

1 UC( 18,20), 

• C0MM0N/FLUWC2/ ' 

1- OUC0T(ia,20)' 

COMMON/FORCES/ 

1 FWINDYI 18, 1 7) , 
COM.MON/CRID/ 

1 DX, 

2 OXINSQ, 

3- DYT2IN, 

4 DZD2, 

5 DZINSQ 
COMMON/bULF/ 

1 PERIDI 

common/index/ 

1 K, 

COMMON/LIM I TS/ 

1 JMAX. 

2 KMAXMl, 

3 KEYOUT 
COMMON/PASS/ 

1 PMOMAF, 
COMMON/PLOTT/ 

1 NPLOTl, 

2 ZiMAX, 

COMMON/P ULL/ 

1 TIME, 


I STEP , 

LN10KM(2 ) , 

SURF (13,17) , 
QDOT (7) , 

QSNET (7) 
PTCTIN, 

VBAR 

EAST(22) , 
JEAST(22) , 
S0UTH(22 ) , 
CDEPTH , 

KMXC , 

KFLQCR(ia,17) , 
KFL0RC( 18) . 

P ( 1 8 , 1 7 , 08 ) . 

V( 18,1 7,08) , 
SURF ♦ 

DVOT{ 18,17,08) 
PC ( 18,20) , 

V»C { I 8 ,20 ) 
SURFC, 

F, . 

TOPLYR 

OT. 

DXINV , 

DY, 

DYINSO, 

DZINV,- 

CUTPT , 

I , 

N 

IMAX, 

JMAXMl , 

KMAXM2 , 

I PASS , 

PSALT, 

DX02, 

•NPL0T2 , 

ZOHSCL 
SY(17) , 

X( 18) , 


KEYOUT 

L30KM(2) 

SURFC( 18 ) 

QNET( 7 > , 

SOAR, 

I IMAX , 

JW, 

WEST ( 22 ) 
CWIDTH, 

KMXCMl , 

Z8( 18,17) 

Z8C( 18 ) 

S ( 18, 17,08 ), 

W( 18, 17, 08 ) 
DHDTC18, 17), 

SC( 18,20 ), 

DHCDT( 18 ) , 

FWiNDXt 13, 17 ) , 

DT02, 

DXT2 IN, 

CYINV, 

OZ, 

OZT2 IN, 

KCUT,. 

J. 

IMAXMl, 

KMAX, 

NMAX , 

POEPTH, 

PW lOTh 
L 9 

PER 100 » 

SYY( 17)* 

Y( 17 ) * 
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2 . YK 2 * 

Z(8) 

CDMMON/PULLC/ 

2C{20 ) 

COMMQN/RI VERS/ 

JRIV(4J , 

i PHASEl. 

PHASE2 . 

2 RMUMAF(A)* 

RWIDTH <4 ) 

3 UVARlt 

UVAR2 

commqn/ryte/ 

10, 

1 LABELO 


COMMON/SCALE/ 

HSCALE , 

1 USCALE* 

VsiSCALE , 

2 ZSCALE 


COMMON/STEP/ 

MN , 

1 NBAR, 

NWRI TC , 

COMMON/r IDE/ 

PHSEMP, 

1 TAMPMP* 

TAMPPH , 

2 TAVGPH* 

THGTMP, 

commqn/tune/ 

ACCEL, 

1 AVCOMP 


COMMQN/TURB/ 

CDIF . 

1 evis* 

D IFFUS , 

COMMON/UNX TS/ * 

BETA, 

1 FETCH» 

GRAV , 

2 OMEGA* 

PI , 

3 VR EF * 

VMAX 

DATA LNl CKM/“-10% • * • KM 

•/ 

DATA LOM /•O.M •/ 


DATA L5M /-B.M •/ 


data L30KM /•30.K’*«M 

•/ 


c 

C GENERATE YZ-CROSS SECTION AT X(I) 

C 

CALL VTHICK(2) 

JWMl = JW -- I 
JEMl =: JE ^ I 

JEPl = JE + i 

YWEaT = 0*5 ^ (Y(JWMl) 4* Y(JVy)> 
ZBOTJP ~ Z0< r f JW) 

CALL PLOT( YWeST •ZMAX+0.3. 3) 

IF( I .EQ. IPASS) CALL VTHlCK(--4) 

CALL PLUT( Y\NEST,28QT JP, 2 ) 

CALL VTHICK<2> 

YJP = YWEST 

DO 1C J = JWt JE 
JPl ^ j + 1 

ZBOT - Z80TJP 
Z80TJP ^ Z8{I-,JPX) 

Y1 = YJP 


NRlVt 

R0EPTh(4 ) * 
UftVG* 

LABELI » 

SSC ALE-* 
XSCALE* 

MO, 

ISTEP 

PHSEPH* 

T AVGMP* 

THGTPH 

ARTVSC. 

CRICH% 

Vise 

6ETAD2. 

hREFf 

TREF* 


4^' 

LO 

O 



nnn 


YJP - Y<JP1> 

YAVG = 0.5 ♦ (Y1 + YJP) 

CALL PLOT( YAVG. ZBQT. 2) 

GALL PLDT( YAVG.ZBGTJP. 2) 

10 CONTI,NU>= 

YEAST = YAVG 
CALL VTHICK(-J) 

CALL PLOT! 0.00. 2MAX.-3) 

SURFJP = SURF(I.JW) ♦ ZOHSCL 
CALL PLUT( YWESr .SURF JP. 3) 

KBDTJP = KFLOQR ( I . JV*) 

YJP = YWEST 

DO 40 J = JW. JEMl 
JPl = J + 1 

KBOT = KBOTJP 
KBOTJP = KFLOOR(I.JPl) 

‘5UPPJ = ’?riUF lO 

SURFJP = SURF(I.JPl) * ZOHSCL 
Yi = YJP 

YJP = Y(JPl) 

YAVG =0.5 » (Yl + YJP) 

IFIKBOT.GT.KMAX.AND.KOQTJP.GT.KIV’AX) GO TO 40 
IFliCBGT.GT.KMAX. OR. KBOTJP. GT.KPAX) GO TO 20 
SHFAVG = 0.5* (SURFl + SURFJP) 

CALL PLOT! YAVG.SRFAVG, 2) 

GO TO 4 0 

20 IF(KBOT.LT.KMAX) GO TO 30 
CALL PLUT( YAVG. SURFJP, J) 

GO. TO 40 ■ 

30 CALL PLOT! YAVG, SURFl, 2‘) 

40 CONTINUE 

CALL PLOT! YEAST , SURF JP , 2) 

CALL PLOTf 0.00. -ZMAX.-3) 

GENERATE LENGTH SCALES, 

CALL VTHICK(l) 

• YREAL = -20000. 0 
SO YREAL =- YREAL + ICOOO.O 

Yl - (YREAL / HREF) * XSCALE 

CALL SYMBOLt Yl. -0.00.0.07, 13. O.O.-l) 

if(yreal.lt;30CO0.0) go to 50 
Yl =■ Yl - 0. 175 

CALL SYMBOL( Yl. -0.20.0. 07, L30KM, 0.0, 5) 

Yl = (-10C00.C / HREF) ♦ XSCALE - 0.21 

CALL SYMBOL!, Yl, - 0. 2 0 . 0 . 07 . LNl 0 KM , 0.0, 6) 

ZREAL - -1.0 
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c 

c 

c 


60 ZREAL - ZREAL + 1.0 

Z1 - (ZREAL / HREF) * ZSCALE 

CALL SYMBOL( -1.70. Zl.0.07. 13. 

IF(ZR£AL.LT.5.0) GO TO 60 
21 = Z1 - 0.035 

CALL SYMBOL( -2.0C. Zl.0.07. L5M* 

CALL SYMBOL( -2.00.-0.035*0.07. LOM* 


GENERATE 8.5 BY 11-INCH PAGE BORDER 


CALL 

PLUT( 

-4.40 


3« 50 » 

3) 

CALL 

PLOT( 

-4.40 


-5.0C. 

2) 

CALL 

PLOT< 

6.60 


-5. 00, 

2 ) 

CALL 

PLOT< 

6.60 


3.50, 

2) 

CALL 

PLDT( 

-4.40 


3,50, 

2) 


RETURN 

END 


90.0 .-1 ) 

0.0. J) 
C.O. 3) 


4N 

(jj 

N3 



uuu uuuu 


BLOCK DATA - 


VARIOUS CONSTANTS ARE DEFINED. 


LOGICAL ISTEP 

CONIMON/FORTNO/ LR» 

1 LW 

COMMON/INDEX/ I, 

1 Kf N ' 

COMMON/STEP/ MN^ 

1 NBAR, NWRITE. 

COMMON/UNITS/ BETA « 

1 FETCH. GRAV. 

2 OMEGA. PI*. 

3 VREF. YMAX 


LT. * 


J« 


MO* 

ISTEP 

BETAD2* 

HREF* 

TREF* 


LW. LR* LT ARE THE LOGICAL I/C UNIT NUMBERS FOR WRITING ON LINE 
PRINTER* READING FROM CARD READER* USING TAPE* RESPECTIVELY. 


DATA LW.LR *LT/6*5*3/ 

DATA MN *MO *N/2 . 1 *0/ 

DATA GRAV* OMEGA .PI/9. 790 *7.290-5* 3. 14159/ 
END 
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0 


DATA 



16 

0 
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